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Appendix A 

ABEL INVERSION SOFTWARE 

This appendix contains documentation and listings for all 
software related to the Abel Inversion which the author has 
written in conjunction with the work described in the body of 
this thesis. Both the program and documentation in Section I is 
closely related to a program of similar description which may be 
found in S. A. Goldstein's thesis. Appendix B4, University of 
Wisconsin, 1973. Also, the appendix in this thesis describing 
the PEPSUB plotting routine may be helpful. Note that the 
version of PEPSUB in ABEL3 is an earlier version than described 
in the PEPSUB appendix, so that line numbering and certain options 
are slightly different. 

I. Program AMXINV2 
A. Purpose 

AMXINV2 is a FORTRAN program to compute, print, and punch the 
Area.Coefficients and Inverse Area Coefficients needed in order to 
model a three-dimensional plasma discharge using the Abel 
Inversion. The program is intended for only irregular use; once 
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a punched copy of the area coefficients is available, that punched 
copy can serve indefinitely as a source of the matrices. To 
determine if there is a need to run the program, check in the 
group's computer program card file; if you find a block of 1000 
cards with something to the effect of "Abel Area Matrices" or 
"BASIC compatible 50 zone Abel matrices" written on the top of 
the card deck, there is no need to run AMXINV2; its job is 
already done. 

B. Origins 

AMXINV2 is a revised version of program AMXINV, written by 
R. D. Sacks and modified by S. A. Goldstein. AMXINV did all 
computations in single precision and punched the area matrices 
in the form id.dddd where d is a digit from 0 to 9 (thus 
1.453*1CT 3 was punched as 0.0015). In development of some of 
the current programs, it was found that the limited number of 
significant figures could pose problems with round-off error. 

Thus, two modifications have been made in the original program: 

(1) The output has been modified so that both the area matrix and 
its inverse are listed in full each time the program is run and 
output is at a constant precision of eight significant figures. 

(2) While only eight figures are output, all computations including 
the matrix inversion to produce the Inverse Area Coefficients are 
performed in double precision. At the time the program was 
modified, checks were run on an HP-45 pocket calculator and on 
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an IBM 7094 computer to determine the number of significant 
figures in these double precision calculations—at least ten 
digits are significant in every entry in the area matrix and its 
inverse, even though only eight are output as the program is 
currently set up. 

C. Instructions for use 

In the group's computer program card file there is a full 
program deck of AMXINV2 with all control cards and data cards 
included. To run the program, however, the first card in the 
program deck (the §RUN card) must be punched so that the third 
piece of information on the card, the user ID number, corresponds 
to the actual ID number of the user involved rather than to the 
user number of the program's author. The @RUN card currently 
reads: 


0RUN AS,2231,1393602639,310.00,100/1100 


with the @ in column 1. The various numbers have the following 
meanings: 


AS 

2231 

1893602639 

$ 10.00 


User's initials 

Walter's group project number 

User's ID number 

If running the program exceeds .this cost, 
the run is terminated. 
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100 Maximum number of printout pages permitted 

or else run is terminated. 

1100 Maximum number of cards which may be punched 

or else job terminates. 

It should be evident that the user will want to repunch the card 
with his own initials and ID number. There MUST be a space after 
the N in RUN, and there must be no other spaces on the card. 

Do not forget any commas or put any extra ones in. 

Having punched the @RUN card, replace the original @RUN card 
with the freshly punched one. The deck may then be run by 
turning it in for processing in the basement of MACC (the 
computing center) at 1210 Dayton Street. The job will not run in 
the WHILE-Y0U-WAIT rate group, but can run in any other group 
(STANDARD, DEFERRED [also known as OVERNIGHT], or CONVENIENCE 
[also known as WEEKEND]). DEFERRED running is particularly 
convenient as one can have the program run at a reduced cost rate 
and still pick it up on the morning after submittal. 

When picking up the output, the following items should be 
given to you: (1) the program deck; (2) a printout showing 
program compilation and the listing of the area matrices, and 
(3) a box of computer cards, roughly one-half full, containing 
the punched area matrices. At both the beginning and end of the 
punched deck will be some extraneous cards with multiple punches 
in many of the columns—these should be set aside (if in doubt. 
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any KACC employee will be able to identify the extraneous cards). 
The punched deck, less the extraneous cards, should now be 
interpreted (that is, the cards should be rendered comprehensible 
by typing the meanings of the hole patterns onto the cards) using 
either the IBM card interpreter in the basement of MACC or the 
interpreting keypunch on the ninth floor of the Chemistry 
Building. Every effort should be made not to "shuffle the deck" 
as sequence numbers have not been punched onto the cards. If the 
deck is dropped, however, the printed listing of the matrices may 

be used to correctly order the cards as discussed in Section F 
below. 

At this point, the purpose for running AMXINV2 has been 
fulfilled; a punching of the area matrices in a form compatible 
with the other programs documented herein has been produced. For 
details on how the matrices were produced and more information 
about the program, continue with this section. For information 
on how to load the matrices onto a file to be used with the other 
programs in this modeling package, go to Section II. 

0. How the program works 

The method used to compute the segment areas for the Abel 
Area Matrices is the same as that used by R. 0. Sacks and S. A. 
Goldstein in earlier versions of the program. This involves 
analytically taking definite integrals of the segment areas, 
using weighting factors if desired to account for optical 
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Figure A-1 


Definition of Terms for Matrix Computation 
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LATERAL ZONE 2 
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locations is then made to compute the region areas (lines 93, 

102, 111, 120, 129, 142, 151, 160, and 169 for each of the 
possible cases). Next, integration is performed over the limits 
of the region using the proper formulas (Sacks' thesis, p. 267), 
and the region area is multiplied by a depth-of-field correction 
factor. (Determination, meaning, and setting of the weighting 
factors is discussed in Section E.) The segment area is finally 
computed by sunning the area/weighting factor products which 
make up the segment. 

After every segment area has been computed, the entire area 
matrix is inverted in a call to a matrix inversion subroutine 
(line 195). The matrix inversion routines are modified versions 
of the double precision matrix inversion routines from the Madison 
Academic Computing Center's Basis Unified Matrix Package, 
revision 2 (8UMP2). Features of this package not pertinent to 
the inversion of the 50-by-50 area matrix were deleted, and thus 
the subroutines as given here should be used only as part of 
this program. The routines are included with the program (instead 
of using the MACC version which is always on file) so that future 
changes in BUMP2 need not affect the operation of the program. 
During compilation the diagnostic "The test for eguality between 
non-integers may not be meaningful." appears six tines in 
Subroutine MSSLVD. These "errors" have intentionally been 
inserted by the authors of BUMP2 and may thus be ignored. 
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As the program stands, all output digits are significant, 

A slight "trick" was necessary in order to have this be the case: 
As initially calculated, the matrix value in row 2, column 1 of 
the inverse area matrix was evaluated (due to round-off error) 
to be 1*2~ 60 (printed out as 8.6736174-10* 19 ) instead of 0.0 as 
It should have been. Since a double precision word keeps 60 bits 
in the mantissa of a number, l-2“ 60 is as close to zero as one can 
get without actually being there. To force the value of the 
inverse matrix row 2, column 1 to be exactly zero, the statement 
in line 196 was inserted. All other values are correct without 
additional manipulation. 

Output is performed by a subroutine called PCHSUB. The 
matrices are printed to eight significant figures, and the lines 
of output are numbered one to 500 (with five entries per line, 
that gives all 2500 matrix entries). Each matrix is written 
onto a scratch file in double precision format, and then read 
back in and punched in a single precision format compatible with 
BASIC in general and the other Abel Inversion programs in 
particular. 

E. Program input and deck structure 

There are two aspects to loading AMXINV2 into the computer 
and getting it to run: First, the correct ordering of control 
cards and the program, and second, entering the desired input 
data. The punched program deck which is in the group's computer 
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file is already correctly sequenced for program operation and 
contains one possible set of input data values. First the deck 
structure will be discussed, then the input data. 

The three stages of execution of the program are: (1) sign-on 
to the computer, (2) loading the program, and (3) compilation and 
execution of the program. Sign-on is accomplished with the 3RUN 
card explained in Section C above; the dollar, page, and punch 
limits entered on the example 3RUN card should be sufficient for 
correct program execution, yet should prevent costly overruns 
should something go wrong. Loading of the program is accomplished 
using the FORTRAN compiler; for each subroutine and for the main 
program, a card is made up which reads: 

0FOR.ISZ routine name 

where the @ sign is in column 1, there is a space after the Z, 
and in place of "routine name" is entered the name of the 
subroutine or program to be loaded. Immediately following the 
@F0R card, the program or subroutine deck is inserted. After the 
last subroutine has been loaded, the computer is instructed to 
load and start the program by using the two card sequence 


0MAP.X 

@XQT 
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After the @XQT card, all input data cards for the program are 
inserted and, at the conclusion of the data, the run is completed 
by telling the computer that the job is finished by inserting an 


@FIN 


card. Thus the input deck structure for the program is: 


@RU.N ID,2231 ,user 
@F0R,ISZ AMXINV2 
9F0R,ISZ PCHSUB 
@F0R,ISZ MTIVD2 
@F0R,ISZ MSEROR 
@F0R,ISZ MSSLVD 
@F0R,ISZ MSSWCH 
@FOR,ISZ MSCONV 
@F0R,ISZ MSMOVE 
@MAP,X 
@XQT 
@FIN 


number,$10.00,100/1100 

(followed by main program deck) 
(followed by subroutine deck) 
(followed by subroutine deck) 
(followed by subroutine deck) 
(followed by subroutine deck) 
(followed by subroutine deck) 
(followed by subroutine deck) 
(followed by subroutine deck) 

(followed by input data) 


The sequence of cards within a given program or subroutine is 
given in the listing in Section I. 

The only input data for AMXINV2 are the depth-of-field 
factors. Whatever values are input on the five data cards are 
the values used for the depth-of-field weighting factors. Fifty 
factors must be input, ten to a card. All values MUST contain a 
decimal point, and the numbers MUST be written so that they fill 
the proper columns on the input cards (FORTRAN demands this 
syntax). The correct format for the first data card is: 
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Columns 1-6 Weight factor for the first depth-of-field zone 
(zone closest to the center of the discharge) 

7-12 Weight factor for the second depth-of-field zone 
(zone second closest to the center of the 
discharge) 

13-18 Third factor 
19-24 Fourth factor 
25-30 Fifth factor 
31-36 Sixth factor 
37-42 Seventh factor 
43-48 Eighth factor 
49-54 Ninth factor 
55-60 Tenth factor 

There should be no punctuation between the numbers. For purposes 
of illustration, suppose that all the weight factors were 1.00 
except for factors 3 and 7, each of which was 1.2345. Then the 
data card would appear as: 

1.00001.00001.23451.00001.00001.00001.23451.00001.00001.0000 

FORTRAN has a quirk in that a blank on a punched card is read as 
a zero, so that a slightly more readable format would be: 

1.00 1.00 1.23451.00 1.00 1.00 1.23451.00 1.00 1.00 
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Notice how the rules on decimal points and column usage have been 
Invoked. These are essential. The other four data cards have 
identical formats, except that the data on card 2 affect 
depth-of-field zones 11 through 20 etc. up through card 5 
affecting depth-of-field zones 41-50. Recall once again that the 
five cards are inserted between the @XQT card and the @FIN card. 

And now that the capability (indeed the necessity) exists 
for entering the depth-of-field factors, what values should be 
assigned to them? One possible answer is to say that there is no 
depth-of-field effect and to set all the factors equal to 1.00. 

In the cards provided with the program deck in the card file, 
this is precisely the approach that was taken. If at some time 
it is determined that a depth-of-field effect is present i.e. that 
the amount of light which escapes from the discharge is a function 
not only of the chemistry of the system but also of the distance 
a particular region of the discharge is from the system 
collection optics, then some value for the depth-of-field factors 
other than 1.00 may be appropriate. The point of all this is 
that depth-of-field factors other than 1.00 may be entered if 
desired, but that a set of factors all of which equal 1.00 is 
prepunched and available for use. 

F. Program output: interpretation and confirmation 

With the program run as currently written, the printed 
output produced includes a program listing and a printout of the 


Area and Inverse Abel Area 'fetrices. A sample printout is 
included as Section I below, and includes a printout of the two 
matrices which may be taken as a benchmark when running the 
program. The order of output is: (1) a label identifying the 
area matrix; (2} the 2500 elements of the area matrix, printed to 
eight significant figures, five numbers to a line, with the lines 
numbered; (3} a label identifying the inverse area matrix; and 
(4) the inverse matrix in a format identical to that of the area 
matrix. If the matrices are represented as being subscripted 
variables X.^ and XHJY.j where i represents the number of 
the row of a particular matrix element and j represents the 
column, then the order of printout is to print X 1 1 ,X 1 2> ..., 

^1,50*^2,1’ so on * is, 50 elements of a given row 

in a matrix are printed out before the next row is started. In 
the area matrix the i subscript gives the number of the lateral 
zone to which the particular segment area refers, and the j 
subscript gives the number of the radial ring containing the 
segment. As the printout lines are numbered 1 to 500, one can 
easily tell what row naaber is referenced in a given printout 
line; lines 1 through 10 refer to the first row of the matrix, 
lines 11 to 20 refer to the second row, and so on until lines 
491 to 500 refer to the fiftieth row. If the N-th row of a matrix 
is being examined, then the first (N-l) elements of that row are 
equal to zero (so that in row 32, there are 31 zeroes followed 
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author's view that no program is ever "finished", but rather that 
use of one version of a program will continually inspire ideas for 
modification; the ideas presented here are the ones that have 
presented themselves since AMXINV2 was written several months ago. 
It is hoped that users will invent ideas of their own and decide 
for themselves whether the modifications might be beneficial. 

(1) Rather than punching the matrices onto cards, subroutine 
PCHSUB could be rewritten to write the matrices onto a file on 
the 1110's disk memory system directly. This would alleviate one 
step in bringing the Abel Inversion Plasma Modeling System on-line. 
Necessary steps would be: 

(a) inserting a card assigning a file to contain the output. 
For example, if a file called ABEL*DATA was to be used for the 
output, the file would have to be created, saved (so that it is 
not destroyed at the end of MACC's production day), and assigned 
a file number so FORTRAN can access 
cards would accomplish this: 

MSG,UP ABEL*0ATA. 

@SAVE,S A8EL*DATA. 

@USE 3. ,ABEL*DATA. 

These cards would be inserted between the @RUN card and the first 
9FCR card, and would allow FORTRAN output file number 3 to be used 
as the output file for the matrix elements. 
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(b) modifying PCHSUB so that in place of the statement in 
line 23 

PUNCH 70,(B(J),J=1,65) 

a statement writing the output matrix onto the file was 
substituted: 

WRITE(3,70) (B(J),J=1,65) 

Note that this has never been tried—my suggestion may not work 
as given! 

(2) The program could be rewritten so that matrix dimensions 
other than 50-by-50 were employed. Considering the output scheme, 
this could most readily be done if the matrix size was changed in 
units of five rows/five columns at a time (notice the matrix must 
always be square). I have not thought out exactly what changes 
would be needed. 

(3) Line 52, which reads in the depth-of-field weighting 
factors could be rewritten (with a few other additional 
statements necessary) so that, if no depth-of-field data were 
supplied, some default value for these factors (probably 1.00) 
would be automatically computed. 
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Of these suggestions, only the first promises any 
significant saving in computing costs. r ihether the others are 
convenient can be decided by the individual user. 

H. Meaning of variables 

A. Main program—all variables are double precision unless 
stated otherwise: 

X(50,5Q) The 50-by-50 matrix of area coefficients. 

XINV(5O,50) The 50-by~50 matrix inverse of X(50,50). 

D0F(50) Fifty member array, read in from five data cards, 

ten values on each card, six characters per 
datum, containing weighting factors based on 
depth-of-field effects. 

SCRACH(500) Memory space required for the matrix inversion 

routine. 

I The lateral zone number {integer). 

URY, ULY Double precision value of 1. 

LLY, LRY Double precision value of {1-1). 

J The radial ring number (integer). 

XJ Double precision value of 3. 

XJTEST Double precision value of P-1). 

KFIRST The index for the first deptb-of-field zone 

contained in a given segraerat X(I,J) (integer). 

The index for the last deptfo-of-field zone 
contained in a given segment X(I,J) (integer). 


KLAST 
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URX,LRX 

LLX,ULX 

2X 


X2X 


LEFT 


HIGH 

RIGHT 

LOW 

YLIMU, YLIMUT, 
YLIMUB 

YLIML, YLIMLT, 
YLIMLB 

FACU, FACUT, 
FACUB 


FACL, FACUT, 
FACLB 


AREA, AREAT, 
AREAS 

CAREA 


RV 


Double precision value of KFIRST. 

Double precision value of (KFIRST-1). 

The largest possible value within a given 
lateral zone for a segment area X(I,J). 

Truncated value of ZX (integer values stored 
as real numbers). 

The radial distance from the origin to the 
upper left corner of the square formed by the 
intersection of the I-th lateral zone and the 
KFIRST-th depth-of-field zone. 

Radial distance to the upper right corner. 

Radial distance to the lower right corner. 

Radial distance to the lower left corner. 

The upper limit for integration over a region. 

The lower limit of integration over a region. 

Value of the integral evaluated at the upper 
limit. 

Value of the integral evaluated at the lower 
limit. 

Area of a region. 

Area of a region multiplied by the depth-of-field 
weighting factor. 

Real (as opposed to integer) scratch variable. 
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B. Subroutine PCHSUB—variable types as given: 

A(50,50) Matrix to be output (double precision). 

B(65) Alpha-numeric representation of the numbers to 

be punched on one card; contains five values 
from the A matrix at any given time during use. 
I Output line number index (integer). 

J ■ . Matrix row index and general utility index 

(integer). 

K* L General utility indices (integer). 

Kl» K2 Indices to indicate which columns of row I are 

to be output (integer). 

C. Matrix inversion subroutines. Variables will not be 
listed as the routines are modifications of MACC's BUMP2 
software; meanings of many variables are unclear to the author 
and the routines have been used as a “black box". Those few 
changes which were made from the original routines were deletions. 
Some light may be shed on variable meanings by reading the MACC 
BUMP2 manual section on “extended calling sequences". 

I. Program listing and output 

Commencing on the next page is a listing of AMXINV2 and 
associated subroutines, followed by a complete listing of the Abel 
Area Matrix and the Inverse Area Matrix for a 50 ring, 50 zone 
plasma discharge. 
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dPIT'S LISTC*.a*1INv2 

FuRPUR-ftACC 4.04 Rtia03 06/05**3:27:44 


1093402439UISTER <1) .in I»v2 

1 C PROGRAM 4««Uv?....C*l,CUL*l ION or A»C* MATRIX M» INVERTED 

a c ••• AREA PATRH FOR A SC TONE SPARK POSE l * 

3 C *•* 0*IG1NALLI •*ITT£n 8T A. 9. SACKS. MODIFIED 8T S. A. GOLOSTFXN. 

4 C ADAPTED FvA 40U8LE PRECISION CALCULATION AND BASIC COMPATIBLE 

5 « ••• OUTPUT 6V A. SCHEEtINE. 

’4 C ••• PREPARE 0 UNOtR THE DIRECTION OP: 

7 C ••• PROF. JOHN P. .ALTERS 

I C ••• DEPARTNENt OF CMf-iSTRT 

t C • •• UNIVCRSITt Of » I SCONS IN 

TO C ••• MADISON« .2 SCONS IN 5J7C6 

11 c .......... 

12 C .......... 

1J c ••• DEFINITION Of VARIABLES. 


14 



XCSO.SO) 

IS 



UNVCSO.Sul 

14 



DOF (SO) 

17 




U 




ft 



SCRACHC500) 

20 



I 

21 



URT, ULT 

22 



llt. lrv 

23 



4 

24 



X4 

23 



XJTEST 

24 



aMRST 

27 




21 



KLAST 

29 




30 



u*x, LRX 

31 



LLX. ULX 

32 



2* 

33 




34 



12* 

35 



LEFT 

34 




37 




30 



HIGH 

39 



RIGHT 

40 



LOh 

41 



TL1HU 

42 



nut 

43 



FACU 

44 



FACL 

4S 



AREA 

44 



(AREA 

47 




41 



RV 

49 





THE SO-PT-SO MATRIX Of AREA COEFFICIENTS 

TN£ SD-?»-5C -ATRli OF INVERTED a*Ea COEFFICIENTS 

50 P£f*bfR ARRAl, n EAO IN OFF 5 DATA CAmDS. 1v W«LUtS 

ON EACH CARO. UNDER A 1CD6.3 FORMAT. CONTAINING an v 

GENERAL CORRECTION FACTOR ALONG !>•€ LINE Of SIGN? 

PENORT. SPACE RESUMED FOR THE. MATRIX INVERSION ROUTINE 

THE OBSERVATION TONE INDEX 

THE FLOATING POINT VALUE Of I 

THE FLOATING POINT VALUE OF Cl - 1) 

THE RADIAL ICNE INOEl 

THE FLOATING POINT VALUE OF 4 

the floating point value of cj - ’) 

the index FOR The FIRST LINE*OF**SIGH 1 ZONE FO* A GIVEN 
AREA SEGMENT ACI .4) 

THE INOEX FOR Tm£ LAST LIN£-0F-51C)tT ZONE FOR A GIVEN 

AREA SEGHENT ACI.il 

The FLOATING POINT value OF (FIRST 

the FLOATING POINT VALUE OF CkFIRST —IT 

THE LARGEST VALUE ALONG THE LIME-0F-SX6HT AXIS FOR A 

GIVEN AREA SEGHENT ACI,4) 

The TRUNCATEO value OF I* 

Th£ RADIAL DISTANCE FRO* TnE ORIGIN TO T*c UH*E* LEFT 
CORNER OF THE SOuARE FORHED at THE INTERSECTION OF Tnf 
I-TH OBSERVATION TONE AND THE Rfl*ST LlNE-OF-SIGNT ;i,»t 
THE RApiAL DISTANCE TO The UPPER RIGhT Cu'NEA 
THE RADIAL DISTANCE TO The LCW£R MShT CU°NER 
THE RADIAL DISTANCE TO ThE LOWER LEFT 1.0ANEA 
TNI UPPER UNIT OF INTEGRATION 
THE LOVER LI"lT Of. INTEGRATION 

the value of the integral evaluated at t*« upper linit 
The value OF the INTEGRAL CVALUATfO at Thk LOWER LIMIT 
THE AREA OF The A REGION 

the AREA -ULTIPLIED NT THE GENERAL LlN£-uF~SIGHT 
CORRECTION FACTOR 
REAL SCRATCH VARIABLE 


DIMENSION SCmACmCSUO) 

DOUBLE PRECISION »<5C,501,x INVCS3. 50 I.LLV,L»t, lRx.L tx, lCFT.lOu 
DOUBLE PRECISION OOFCSU>,X4.URT.ULV.2*,*ZX,UAX,UL«,PIGhT 






•0u»u PRECISION H|Sn,«iTCST.TU»iO.TL|m.,r*eU t »ACL,*«fA,CMf A 
•OuBLf PRECISION fLl**Ul. TLINLT.fACLT.AUCAT.F ACUT,TLl*Ub,TLIPLO 
DOUBLE PRECISION MC06,rACt.P.AA£A8 
HAD S' (OGFUt). « * 1.50 
fOAPATCIOCA.w) 

«i»T 6, (OC/C«>. A « 1,50) 

FOAPAIOhI t 2+M,9nQQf AAR AT, //(1QF8.})) 

•01 1*1,33 


42 


001 J-1.50 

43 



44 

1 

com i fcu c 

45 


•099 1*1.50 

44 


•099 .1*1.50 

47 


If Cl .fit. 4) CO TO 99 

4* 


A4*0fL0AI (J ) 

49 


UAV«BfLOAf U) 

70 


<ILV»UftT 

71 


LLT * UAT - 1.3 

72 


LAV « UAT * 1.3 

73 


If Cl .NC» J> CO TO 16 

74 . 


AflAST * 1 

7S 


C0T0T7 

74 

14 

•V*C1.3-*0i0AT rCXJ-1.0)**2llAV 

77 


RfI«ST*lNTCAvl 

n 

17 

2R * #saAT<U**2-LLT.*<) 

79 


A2A * IOINTt**) 

to 


If C2A - lit) 19, Ifi. 19 

«1 

19 

A2A * 111 ♦•1.3 

02 

10 

11*121 

•3 


■LAST*lfI a(A wl 

44 

70 

UAA * 0 FLOAT ttf F1 AS T ) 

ts 


lar*uax 

44 


LLA*UAX—1 .0 

07 


ula*ll« 

04 


LEFT *DSQRTCULI**? ♦ ULT*«2) 

•9 


AXCMT *0SUATILA>**2 ♦ LAT«*2I 

90 


LOW *0SQ»T(LC«**2 ♦ LLT**?) 

91 


NICN *OSQATCgAl**2 • u»T**2) 

92 


IJTIST*Ij-1.M 

93 


If Cutest .le. low) go to 2C 

94 


If CRJ - HIG») 4C*. SC. 5C 

93 

20 

If ( C A J .LC. RIGHT) .and. irj 

94 


If CCXJ .GT. RIGHT) .a\0 . CU 

97 


If CAA - LEFT) 26. 26. 25 

90 

21 

VLlftU *OSCRT(Vi*«? - LLA**2) 

99 


TLH*L»LLT 


i^:j;r Li " u4(6SQ * T 

.AACAafAC-Wf ACL 
CAMA«Ad£A*»yF(AfIHT) * 

COTO90 

1LINU«ULT 

ILIftL »0S49TC*J*«>2 - 

cxj**2-tli«ci**2>j*u** 2* cpAS in c 
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MCL*vun«. S*C VLll*f<0$0«T (X 4**2-TLl*l**2))*l4**2*C8ASIM 

iTUHL/ijm 

area*1«o-<facu-facli 

CAREA«AREAoftwF C«F i«sn 

C0I090 

TUI»U«ULT 

fACU*0.3MTLi«U*<fiSC«T(X I PU «•;))«« J*«?*(D«SIIH(Tt.lf*U/ l J>)> 

1*(TUAb*(BSS»T(ij«*>ui,r«<2) ) ) 

»»t» « f*CU * MCI «G$4RT <X4••c~U*Y««2) - UU 
CARE A*AR£A*9«.F Of IBS T) 

60T090 

VL1AL *DS6irai»? - U8*«*2> 

UIHJ *ftSwATtla ? - Ul«*2) 

rACU*0.S-CtLi-U*CaSOATt*j*.2-TUWO»-2JJ**J*«2**PASXMTLXHU/»jnJ 

1-TLlAU*LLX 

^^ACL*0.S«OL;»l.«<eSa*T(X j»«?*Yi.XPL**2})*IA«*2*<CA;iM(Y|.XJ | U./A4>>X 

A*CA * FACU • MCI ♦0S<lRT<X4**2-URX**2) - L*» 

CAREA*AR£*sBwf<«FX«SI) 

C0T09Q 

If C<14 »XS*T) .Ar.B. <XJ .6E. LEFT)) CO TO 51 

If CCAJ .IT. *XC*»T) ,AAft. (14 .tT. LEfT)) 60 TO 53 
If «*J * A.EFU 55. So. 56 
TL1*U»UA» 

turn. MSuFTUj**? - uflt** 2 > 

f ACU»YLl«U«4.*X-C.S«OLl , *UMDSaSTC*4s«2-TLll»U««2>>»X4s*2*CBAS 1* 
1<TLIMu/ajJ>> 

AREA.fACU-FACL 

CAREAsAREA*0wFCoFIRST) 

COTOSO 

n.X*U •CSb»T»j**2 -LLA**2) 

f ACU«0.S*t TL.HUM&S3ST (X J«*?-TLI*U **2))«l4*«2*<MSlMTLtNUMJ)n 
1-KIFuuu 

1«TLliJ*LUA t,,i! " L * ,aS0 * T ** J *" 2 “ Y »AS !«•< j ) J > 

AREA » 1. w - CFACU - FAC L) 

CAREAsACEA*6wf(*FIRST) 

6OTOS0 

TURUsuRT 

niH*uT 

FACUsTLl*WUS5*rtl4**2-tLT«s2n-0.5MlLI*UMftS0AT<»4ss2-tUPtUss£ 

in«I4**2*ftASX1TrLXFu/i j)) v c 

FACL«TLXRLs<-S5RT<X4**i-LLT*s2 n-C.S»<TLlRL»C*S0RTC»4s*2-»l.IRLss2 

in*l4**2«OASX*OLlJ-L/»4> ) 

AREA « FAC U - FACt • UtiX -0 SOX T ( X4 • * 2~LL Y * * 2) 
CARCA«AREAsft«,FCcFXRST> 

COTOEQ 

»UFU *CS«RTtX4• U>*«2) 

»UFL *DS<.R 11*4 *»? « Ux«*»2) 

fACtt*?Ll*wsui*«2.5*OLl-WM©SOAtCi4**2-ILI*U.s2l)sA4.*2*OA*|*miF 
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to# 


149 


170 


171 


172 


173 


174 

40 

173 


174 


177 


170 


179 


140 


101 


192 


193 


194 


199 


194 


147 


144 


149 


190 


191 

40 

192 

50 

193 


194 


195 


194 

99 

197 


194 

100 

199 


200 


201 


202 


203 

105 

204 


205 


204 



Itt/XJl) 

rACL*TLl"L*VMX-C.S»tTLlNL*<0SaAT<l.|**2-fLIML**2))4X'l«*2*B4SlN<1Ll 

U/U>) 

*M» * M(U « Mfl ♦ U *1 •S$«»T(IJm2-UX**2) 

CIB!«MICA*0uF ((FIRST) 

6OTO80 

YLlNUT*uRY 

Ttl«LT *®sa»M«j**2 - U«s«*2> 

FACUT«YllHUT»URi-O.S* <YC i*UT* < OSOHTCIJ**2-TL1«UT«*2 ))**j..2*#4SUi 
Kyui*ut/ij >) 

B4Cl.T»Ttl«tT.CR»-0.5*<TtI>«UT*<0Sa*TClJ**2-YUHtT**2)l»*J.*i*t4SI to 
t(VLl^CT/IJ)) 

ARCAT-YACOT-f*CLT 
U*xj-l.0 

YIINU0 >0SQ«T(IJ**2 - LH**2) 

YLINL0-U.Y 

FACU8*C«S* <YuINUS*(OSQR T (IJ*«?-TUl’ , Ue»*2))'*(.J**2*0A SIN<YUJMUi/>4 
1>l - YU IMufe *t.L* 

rACUS<0.S-(YvI«U8MCSaAT(Yj*«2-YuXNLB**2>)*IJ**2*»ASINIYUZNtS/>J 
111 - YLINuB-uU* 

A8£A0*fACuB-YACL9 

ASCA*1*a-<A»tAT*4»EA8! 

CA8EAsA«Ea-0mF<kFIRST) 

u**j*i.a 

A(I«Jl*S(l»J)*CAR£A 

If ((FIRST .CO. (U AST) 60 TO C9 

KflRST * (FIRST • 1 

60TO70 

CONTINUE 

SAINT ICO 

FORNATClH . ,1 imapea matrix) 

CAUC PCnSuS(A) 

CAUL NTIV&2tA,XlNV.5G.50.50.*6EN 1 .SCRACM1 

XINV(2,T)«C.;9 

MINT 135 

FORMAT C1M «1VMINVERSE AREA MATRIX) 

CAUL SCMSuSdlNV) 

STOS 

END 
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am,s ustci.pcmslb 

fW*ia-«ACC 4.C* IUBOS 24/45-23:27:45 

1 SU««OuVt!l& »C«StMA) 

2 C ••• THIS Sue«bUT 4 %t 5B1** HUTS AMI PUNCHES SC M SC »A1«1CC$* 

I t ••• I*»AUT IS ASSw-Eft to fc£ A 53 0 T 53 OOuSlC PRECISION *ATRU. 

4 c ••• OUTPUT IS 10 * S IS Vi 1 1C A AT FKblCS, 

5 iOUtLC PRECISION a(SC.SG) 


4 


s incuslot a<«5) 

7 


1*0 

0 


00 50 4*1*50 

9 


•0 50 c«1.1Q 

10 



11 


rt*S*« 

12 


«2*5*N-4 

13 



14 

40 

cornat ci* 

19 


•»IT£<2.4») UtMUtOtil) 

14 

45 

fORPAT(5ClP»l4*7» 

1? 

30 

CONTINUE 

10 


■CUN# 2 

It 


00 8C 1*1.SIX 

20 


•EA8(2.60,C4«.*1C3> I*«j1 .4*1 .45) 

21 

4Q 

fCtnATfS<1lAi,ii.2*;n 

22 


NUACN 7C,Cet-1*J*l,eSl 

23 

70 

FORNATCaCICAI, *E*.3Al.*. a ).1QAl. a l 

24 

tc 

continue 

23 


ICklM 2 

24 


return 

2» 

100 

MINT 11C 

20 

no 

FORMATClM ,V»C* 1« »uNC»I*C I0U1 

2t 


CN kill 40* C»AS«,*J 

30 


STOP 

31 


CKO 


W(,fe 


MOCA* 
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IMT.J USTCI.PT1V82 

fWttua-ftACC *.C4 *il803 C*/0S-<3:2?:47 
1l*3602*39«tISTE*C n.*TIvo2 

1 S*l6*0uTI*t (A ( C.4K«,>A»A0A,»llffCC«rv*eA t SC**CH) 

2 c ALL *AT*lx -At* 1*01. AT I0*S AB£ *£**0**66 h I T M SUBROUTINES 

3 C .••• ABSTRACTED **.0- -ACC *S 80-*? AATtl* PACKAGE • 4/15 /?5 

* integer t»*ea 

3 IlHfkSlOA SC—ACh<11 

4 MBt • 

T I8CT * 0 

a Intel - a 

t i ntuet • c 

to If CM* •&£• 1 .Alt. MHO* .SE. 1 .AMO. MAXtOC .«E. U CO TO 25 

11 CALL tSCtOA (n,C,NAHE,3) 

13 S10A 

13 23 If CTVA6A 'GCft* .0*. TTfEA .£0. *0IA*)CO TO 35 

H CALL AS£tw<(««C.nAH£ t C) 

IS STOA 

H 35 CALL ftSSL»D(A v 2«G.**A t ..f | *xaOA.0.C,TVf>E«'EPS»'l*V* ,C.SCRAC*<5*N»A 

12 1 ♦ ii,sc«ACHti) ,scaAC-ckSA* , ») .scsac* Ci-s*A*t) ,scaac-(3*ara«i ),c, 

1i 2 AAXAOC.PkI. •C*,:.CET.CE HOC, iNOET.ITBueO 

1* 40 If CZtOET •£<■* 1 )*wT * Pvl 

20 If CITBUBC .*>£• 0)60 TO 699 

21 IHMk 

22 000 CALL ASEtO* Cw»0«*>ANE «C) 

23 CAB 


. 3 . 
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aNT.S USTO.KSMOt 

FURPuR-macc 4.04 *i1b 0 3 36/u$-i3:27:48 
1C93402«39«USUR«1J .MSEAOR 

1 SUe*0uTlNt NSE*ORC£tMESS.NMbORD .SL8AUT.IRET) 

2 DIMENSION €»ness(*> 

3 tUtKH CR*£*S 

4 t# (IlAESStn .40. 0)40 TO 11 

5 I» t€«*£S5C1) .fit, 20 .OR. i RMESSCI) .LT. 0)40 TO 1 

* UftPtS * fctP-kSSCl) 

7 PRINT 2CQ 

• 200 FORMAT <5i.//) 

9 SO TO <3.4,5.6.7,a,103.1CA.103.1Cd.1C7).I£RMCS 

10 3 PRINT 11 

11 SO TO 11 

12 4 PRINT 12 

13 SO TO 11 

14 S PRINT 13 

13 SO TO 11 

14 6 PRINT 14 

17 SO TO 11 

10 7 PRINT IS 

19 SO TO 11 

20 * PRINT 1* 

21 SO TO 11 

22 103 PRINT 17 

23 SO TO 11 

24 104 PRINT 18 

23 CO TO 11 

24 103 PRINT 99 

27 SO TO TT 

28 104 PRINT SC 

29 SO TO It 

30 107 PRINT 81 

31 SO TO It 

32 9 PRINT IC.CERnCSSCD.X * 1.N»W0R0) 

33 «0 fOftM*T</./,1v,X..'A4> 

34 11 PRINT 12 t iue«.UT 

33 12 FORMAT <1Ll,*'»SER0R CAUL CD FR0M* t Sx.A6) 

34 . If CIR£T .N£. 3) f£Tu*N 

37 PRINT 5Q 

30 SO fORNlT (Sl.'jOB ABANOONEO'J 

39 RC1URN 3 

40 91 I0RN1T (Sa.*1NC0m*ATIBLE CPfR*N0 MATRICES *1 

41 92 FORMAT (S■« 'RESULT MATS!* OVERFLOWS OUTPUT ARRAY*) 

42 93 FORMAT (5* » *wN£ OF rut "ATR1CSS CONTAINS RELEASED S’ACE*) 

43 94 FORMAT <51. •eBRCNEOUS •*TR1« Kapil') 

44 IS FORMAT <Si,*rATRJl IS NOT SQUARE*) 

43 14 FORMAT (5a.*«CSULT MATRIX DIMENSIONS EXCEED OUTPUT ARRAY DIMENSION 

44 IS*) 

47 97 FORMAT (Sx.*CONVERGENCE FAILURE*) 

40 98 FORMAT (Sl.'.NPUT MATRif OVERLAPS RESULT MATRIX*) 

49 99 FORMAT <Sa.*«. 0U6L£ PRECISION OPEPANO **AIRIX CONVEX If 0 TO SINGLE PR 

50 IfCISlON*) 

31 80 FORMAT < 5* .*UV£RFLOv*) 

52 81 FORMAT (5a.*PAT t n OR ARRAY DIMENSION LESS THAN ONE*) 

53 {NO 
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OMT.S LlSTC*.FSSLV9 

Fu«pv8-*acc 4.64 tuaC3 06/05-43:27:4* 

1l«)»02t)KIST{a( 1) .MSLVft 

* SuaiOUTlhe «SSLV0C* f a, C.*if*,WC9.#»*■«€*,^***08,«»«»0C,TTP£*,fPS, 

2 T OMTPC.wS r,.S2.lwSl.lC!KS*.IRC*$*.*C$CAL.U*$CAL#«$tOI*.fVt.SOI*, 

1 2 S8X8.0£T.0£Tl0G»I'O£T , I T PUP L J 

4 IATCCER T»P£A,OFTfP£ ,hSU!P* 

5 NUIU MfcCIiXOA A,B,C.*«l.wS2.*OSCAL.TE»IF,*Ano,TCM2 # 

9 1 OtffPP ,0cGT*P,8ST,a£TL0G 

2 9IftC*$I0*i A<«*Hfli,».»i J ,e<"A>*09,MCB J.CC»AI»0C,MC8) ,toS 1 Cb$ 1C IP » 

• 1 *IA>«MSZ<MU)«Ib$1(NAA) .ICOLS«<NA«}.IftO*$*<fc*4>,RQSCAL<h*Al 

9 IF ACCimucATuft OvCRElO. 1.1 

10 1 mct * IftOCT 

if •iffp* ■ i.Cd 

12 8LGTM • v.00 

IS 1T8U0L » w 

14 If tu*t A .*£. *91 A* ,A*»0. NRA .«£• 1)60 TO 6SC 

15 IF (OPTTPC .a£. *SLV *)GO TO die 

14 80 90S X * 1.9AA 

17 IF CACI.1) .cQ. C.D1S0 TO 9«7 

It 10 tot j > 1.NC8 

It Cfl.Jl * BCX.Jl/ACI.I) 

20 *04 C0MT1MUE 

21 40S CONTINUE 

22 60 TO *30 

23 *10 IF (OFTtPE .£0. *OET*UO TO 6*C 

24 IF (OFTTFC .*£. *IAW)GO TO 999 

25 80 *20 1 * 1.IRA 

2* IF t ACl.il .to. C.OOIGO TO 997 

27 MSfCZ.11 * C1.01/RCI.1) 

2t 420 CONTINUE 

2f 430 IF (XMDET .Me. 1)ACTuAfc 

30 *40 8CT » 1.0 

Jf BETL06 « u.0 

32 80 *4S X * 1.MAA 

33 8lt(RP * aCI.11 

34 If f8ETEPP .tO. C.01G0 TC 995 

35 8CT ■ OCT • BET£f«* 

34 . 8CTL0G * OCTlOG ♦ BL06COA4SC8C TC*I»>> 

37 *45 COMTIftUC 

3t IF ACCUKUCATu* OVERFLOW 994,64* 

39 444 aCTUFN 

40 *50 CALL nSCOHVCA, J.A.toSl ,A»A,ntlR0A,wS1&lft,TTFCA, *GCH*,S01A. *0* 1 

41 IF COFTTFC .A£. *SLV*>vO fO 2 

42 IOP * 1 

43 CALL HSftOVC C3.0.R.C.*RA,«C8.**1 

44 SO TO 300 

43 2 IF COPMPfc .£0. M.NvMiO *0 J 

4* IF COFTTFC «aC. 'OCT'IGO TO 999 

47 . MCT » 1 

40 IOP * 3 

49 60 TO 3QQ 

50 3 IOF * 2 

51 90 4 I » 1,*mA 

32 toscALcn « i.o 

53 4 COmTImuC 


’CJ 


son 
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54 


300 00 500 1 • Unu 


ss 


Uftr « 0*0 


S4 


00 4CO J « 1,N*A 


57 


17 (0A6S(ta$1(l.J)>, l£. T£»»> 60 

TO 4C0 

St 


TCNP2 * taSld.J) 


St 


TENP * 0APS<U»f>2) 


•0 


400 CONI IN U C 


41 


I7CTEPP at. 0.0) CO TO 19$ 


42 


17 (TENP2 .£». 1.0) CO TO $CQ 


43 


00 4S0 4 ■ 1.NRA 


44 


taSI(I.J) .« tail (X ,J >/TEPP< 


4S 


450 CONTINUE 


44 


17 (OPTYPE .£0. !MINW)BOSCAt<I) 

* (1.01/TEPP2 

47 


17 4N0CT .EQ. 0)CO TO *51 


41 


OETENP * OETt*P • TEPP2 


49 


OLGTPP » OLGTPP ♦ OLOCtOAeS f TC-PE) ) 

70 


451 17 COPTYPE .*£. 3*$LV) CO TO SCO 


71 


00 470 J » 1.NCB 


72 


CCI.J) • C(1*J)/TENP2 


73 


470 CONTINUE 


74 


500 CONTINUE 


75 


17 (OPTYPE .£0. 3HOET)60 TO 7 


74 


•0 4 I » 1.N6A 


77 


ICOLSM(I) *1 


71 


17 (OPTYPE .tO. Jh INV ) XROWSW(Z) 

» X 

79 


4 CONTINUE 


AO 

€ 



11 

C 

0E6IN GAUSS EL IN INAT ION taITta TOTAL PIVOTTXNG 

12 


7 NUNROta * NR A • 1 


13 


00 100 JDIAG » T.NUPRG* 


14 


44GP « JOIAG • 1 


IS 


JOCH * J 01 AG - 1 


14 

C 

NOM 71N0 THE LARGEST ELEMENT 07 

R EPAIN INC ONES 

17 


TEHP « 0.0 


•1 


00 10 I « JOlAG.NAA 


19 


•0 20 J » JOtAG.NBA 


90 


17 <0ABS(*31 (I»J)) .LE. TEMP) GO 

TO 20 

91 


1 PARR » X 


92 


PARC • J 


93 


TEHP ■ OABS (W$1(I, J )) 


94 


20 continue 


9S 


10 CONTINUE 


94 


17 (JO!AG .Nt. 1)G0 TO 12 


97 


PVT * T£NP 


91 


12 IP (TEPP .GE. PVT) CO TO H 


99 


PVT • TENP 


100 


14 17 (TE"P .EQ. C.O>GO TO $05 


101 


17 (PARR .EC. JOIAG) GO TO $0 


102 

C 

SWAP AOtaS JOIAG AhO PAR 0 « 


103 


40 1ST COL • JOIAG 


104 


17 (OPTYPE .HE. 3hINV)4»0 TO 4$ 


105 


ISTCOL * 1 


104 


45 60 46 J • ISTCOL.NRA 


107 


TfPP * US 1 (PARR .J) 


101 


ta$1 (PARR . J ) * -SKJOIAG.J) 


109 


uSI(JO I AG.J ) « TE»P 


110 


44 CONTINUE 
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fit 

112 

115 

m 

IIS 

in 

117 

in 

m 

120 

121 

122 

123 

124 

123 

124 
127 
12t 
120 

130 

131 

132 

133 

134 

133 

134 
137 
131 
130 

140 

141 

142 

143 

144 

143 

144 
147 
I4i 
140 

150 

151 

152 

153 

154 
IIS 
1S« 
1S7 
ISO 
130 

140 

141 

142 

143 

144 

143 

144 
147 


l( 1 (W * * »k!lM 

ir copttpe . 10 . 3ho£T)go to SC 

X* COPTtPfc .*£. JmSLvX.0 TO 49 
10 4U « 1.NC4 
TCPP • C(NAI»,J) 

cnuu.i ) * ccjoia b.j) 

CCJOIAG.J) * TffO 

44 CONTINUE 
CO TO SC 

C tOO*KEEP fcOw SWAP FOR INVC AS E 

40 ITPPOR * IRO.SW(jDIaG) 

IAOWSWOJOIAG) « IPOwSwl*A»A) 

IROW$W(PAA A > * | T**POA 
SO ir CPAXC *E 0 . JOIAG) GO TO 73 
C Swap columns joiag ano ha*c 

•0 45 t * 1.NAA 
UP# « WSIII.PAIC) 

WS1CX.PA1C) * wST(l.JOlAG) 

WS1(t»JOtAC) * TEMP 

45 CONTINUE 

IF fCPTTPfc .£0. 3MOET3GO TO 64 
C 

C NOW DO BOOKKEEPING FOA COlUAN SWAP 

TEPP * XCilLS.(JOIAG) 

ICOlSWCJOIAGJ * ICOLSUCPAIC) 

ICCLSWCPAiC) * TE-P 
44 9ETCPP * -OEIEPP 
C NOW ElINlNATi COUUNN JOIAG 

70 DO 80 X * JOviP.NAA • 

PATIO * W$1 C,JOIAG)/WS1 (JOIAG.JOIAG) 

ISTCOL • JOGP 
CO TO (66 *67(68)«IOP 
C CO TO 67 IF INW 
47 ISTCOL * 1 
44 DO 72 j * ISTCOL.NAA 

WS1C1.J) * WSKI.J) - RATIO • WST(JDIAC.J) 

72 CONTINUE 

CO TO <76,75.43).TOP 

C 76 IF SLV 75 IF INW 40 IF MT 

76 00 74 4 • 1 ,nC 8 

C(I.J) * Ctl.J) * PATIO«C(JOXAC.J) 

74 CONTINUE 
CO TO 60 

C FILL IN LOWER PART OF CCLUPN JOIAG WITH INVERSE EiEPfiNTS 

75 1TCNP3 * IflO.SW(JOIAG) 

WS1CI.JOIAG) * -pOSCAlC:T£HP3)*RATI0 
•0 CONTINUE 

IF ACCUPULATGR OVERFLO* 994,TOC 
100 CONTINUE 

IF (WSKNRA.wRA) .£Q. U.0)«0 TO 9*5 

IF CNOET .ED. 3)GO TO tQ4 

Otf * OETIPP 

OETLOC * OLGTPP 

•0 101 1 * 1.N4A 

OfTEPP • wSTCI.n 

OCT * »£T • UETCPP 

OETLOC » DETlOG • DLOG(DAOS(DCTEPP )) 



HI 

14* 

170 

171 

172 
171 
174 
17$ 
174 
177 
171 
17* 

150 

151 

152 

153 

154 

155 

154 
IS? 

155 
IS* 
1*0 
1*1 
1*2 
1*3 
1*4 
1*5 
1*4 
1*7 
1*8 
1 ** 
200 
201 
202 

203 

204 
20 $ 
204 
207 
70S 
20 * 
210 
211 
212 

213 

214 

213 

214 
21 ? 
212 

219 

220 
221 
222 

223 

224 


101 CONTINUE 

If ACCUftUlATu* OvCRflOb eot.ICZ 

102 If (OMfPt • tQ • *0£T MhfTUAV 
104 If (PvT .iT. (PS)GO TO *9* 

C 

C MOM »4 SACK SUBSTITUTION 

c 

10$ KSCOl, > lies 

If (OPTTP£ .KC. JftlNV) GO TO 120 
*OCOl • NMA 

120 SO 17$ JO 1AG > NBA,1.-1 
JOGS « JO 1AG * 1 
GO TO (Itu.liO.IOP 
C 134 If SLV 140 If INV 

134 ITEPP3 * IKOaSM(JOIAG) 

00 13$ J » JOIAG»NAA 
MS2<J> * •SI(JOIAG.J) 

135 CONTINUE 

C PUST SAVA *Oft JOZAG AS IT GETS ClOSSCflEO 

140 00 170 ft « 1.NCCOL 
GO TO <Uu t l4l),iaP 

« 140 If SLV 141 If XMV 

141 TfftP » WS1 (J01 AG « *) 

If (ft •(.!• JOZAGIGO TO TS4 
TfftP • 0.0 

If <P *N(. JOZAG)GO TO 1JA 
TfftP • A0SCAc(IT£-A3> 

134 If (JO I AG .E». NBA)G0 TO 1$6 
00 1S5 J • joga.naa 
T fftP » fEftP - vS2(jl«VS1(J.PJ 
1SS CONTINUE 

154 NSKJOIAG.A) * TEftP/MS2( JOIAGJ 
GO TO 17Q 

140 TfftP * CUDIAG.P) 

If (JOIAG .Ew. N A A )G 0 TO T44 

00 145 J « JvGP »N A A 

TfftP • TfftP - VST(JOIAG,J)«C(J.ft) 

145 CONTINUE 

144 C(JO 1 AG»ftI « TEftP/wSTUOIAC,JOIAG) 

170 CONTINUE 
17$ CONTINUE 
C 

C NOT ACOfiOE* AOuS ANO KC SC ALf UNKNOWNS (ROftS) 

00 1ST I « 1. N A A 
ITf«P3 ft 1COiS*( 1J 
1WSK1TEMP3) * I 
181 CONTINUE 

00 190 I » I .NAA 
ITftAOA ■ IWSIfl) 

If (ITftAOA .£0. 1)60 TO 100 
If (OPTTPI «n£• 3ftINV> GO TO 155 
00 194 J « 1.N0A 

TfftP » mS1(1,J> 

NS1(I«J) » vsl(ITftPOB «J} 

MSI(ITftAOA «JJ ■ TEPA 
184 CONTINUE 
CO TO 199 
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225 US to 181 4 « I'NCO 

22ft UNO » CU.JJ 

22? CU.J) * C (X ifpor *j ) 

228 CUTIfOVij) * T£PP 

220 188 CONTINUE 

230 C NON SOO«*EEF ROWSWITCM USING CCLSwCM 

231 180 CAUL MSSWCMlCOLSU.USI.XTHPOR.l.NRA) 

232 190 CONTINUE 

233 IF (001TFi .>£. 3MINV) cc TO 2C0 

23« C FINALLY GEOnOER COLUMNS FOR INVERSE 

233 tO 102 I * T,n*i 

23ft IINFO* * XRO.Sudl 

23? tUSKXTPOOAX «. I 

238 192 CONTINUE 

230 to 108 J a 1.MRA 

2ft0 1TMFOR > iMSl(J) 

2ft1 IF (1THF0R .fcO. JX GO 10 10* 

2ft2 to 10ft 1 « 1.NRA 

2ft3 TEMP * kSKliITC^OI) 

2ftft USKX.ITFPOA) « WS1C1.J) 

2*5 wSICX.J) * TtHF 

2*ft 10ft CONTINUE 

2*? C NOw BOORAEEF INVERSE COLUMN SWITCH 

2*8 CALL MSSUCH UAOtaSta.lwSI .ITMPOR,j.NRA) 

2*0 10* CONTINUE 

250 230 IF ACC 11*01 ATUR OVERFLOW 504.201 

231 201 return 

232 005 IF COFIvP* .*,6. *td ‘) UO TO 007 

233 fttT « G.GO 

23* tCTL06**1«06 

233 return 

2S« 004 call hserorc‘overflow*.2 ,*nsslvo * • u 

23? ITAUBL » 1 

258 RETURN 

250 00? CALL NSERuAC'SlNGULAA HATRII*,3,‘HSSLVO•,IX 

2ft0 ITAUBL * 1 

2ft1 RETURN 

262 90ft FFINT 990 

243 FtlMT 001.FVT 

2ft* GO TO 105 

243 000 FORFATC/.Sl. ‘WARNING, THE FATA IX IS NEARLY SINGULAR*) 

2*4 001 FORMAT (Sa,‘PIVOT ELEMENT • *,£12.9) 

2ft? 000 CALL MSEROR(4.C.*HSSLVO* .1) 

248 RETURN 

2ftO EMt 

ante,ft X.N.64.6.3. 
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l«T,l LiSTC»«f*$$UCN 

Miftrua**«CC 4*04 rcibOS 06/05-23:27:50 

iat3*0263«*LlST|ac n.HSStaCM 

1 SUBROUTINE »5S-CH(I5.. IW51.* ,B .».«*) 

J I*tC6|R M 

3 BIRINSION !Sw<NRft),lwST<NR«> 

* xtnpor » isu(«) 

3 iMSI(XVMPOi) « 8 

* itapor ■ isw<e> 

f XfcStCITNPOR) * A 

i ISh(l) « 

* IS»<«> * ITMPOR 

10 (MB 

aMtC'N t.R f M«4,3. 






418 


o«t,s usrct.HscoNv 

FURPUD-4ACC 4.04 RL1&03 04/05-43:27:5) 


t|93*02439»Ll$TER 
1 
2 

3 

4 

s 

4 

i 
4 

It 

tz 
IS 

14 

fS 
14 
17 

It 


20 


201 
20 2 


20 
21 
22 

23 

24 

23 

24 
27 
2» 

2* 

30 

31 

32 

33 

34 

33 

34 
37 
30 
34 

40 

41 

9*46.4 I.*,66,6.3. 


203 

204 
207 
204 

204 


221 

222 


223 


224 

21 


444 


<1).*SC0*V 

SUBROOT 1NE ffSC0NV<A ( C,AA,CC.4RA,MAI»aA,PA*R0C,TTF(A,TVPfC.*01A, 

1S41CJ 

414(41104 A(MAIROA,NflA),AA<*AlflOA,NRA) § C«*A*AOC,NR A>*CC<4AIROC, 

1 4RA) 

iRICCft TTREA.TfRPC. SOU, SOIC 
DOUBLE MECIMON A A « CC 
IS4SDB » 1 

IF (SD1A •(0, *0*1 ISNGDfc ■ t S AG 00 ♦ 1 
If <$01C .£0. *C*> ISNG08 * ISNGC9 ♦ 2 
1»<«TVMA.C0.3 mGE4 J.ANO.UTREC.EG. JnGEN })G0 TO 2Q 
CO TO 999 

IF C4AIA0C .<•(. RAinOAJGO TO 2C9 
IF (IS4G04 •*€• 11 GO TO 2C1 
IF <L0C(At1»1>) .N£. UCC (CCT .1 ]) )G0 TO Z09 
SO TO 2C2 

IF (1SNG0B .AC. *>G0 TO 2?9 

if cloccaao ,1 n .ac. locicc n ,n>)co to 2C« 

•0 201 J * 1.NRA 
DO 207 I * t.NBA 
GO TO <203,2u3.206,2G6), ISNG8S 
CCIW1 * A < I ,j ) 

GO TO 2Q7 
CCCI.J) ■ AAtI.4) 

CONTINUE 

CONTINUE 

RETURN 

DO 21 J * NRa v 1'-1 
DO 21 I * NRA.I.-t 
CO TO <221 ,222..223.2243.ISNG0B 
CU.J) * AU.J> 

CO TO 21 

CU.J) « AA(E.J) 

CO TO 21 

CCU.J) - ACi.j) 

60 TO 21 

CCU.J) » A A < I . j ) 

CONTINUE 

RETURN psCO 

CALL 4SEA0R(*,3. *f*SCQ4V * ,0) 

RETURN 
END 


17 


NSCO 71 
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i«l.J iXSTCB.ftSROVC 

ftiaBut-ftACC 4*04 at 1803 36/0S-<3:27:$2 


1l»3402439*USTt«< U ."S»Ov£ 


1 
2 

3 

4 . 

s 

4 

7 

a 

♦ ■ 
10 
11 
12 

13 

14 

13 

14 
17 
It 
14 
20 
21 
22 

23 

24 

25 
24 
2? 

24 

29 

30 

31 

32 

33 

34 

33 

34 
37 
31 
34 

40 

41 

aM8« v Jl X. 


AAtl»J) 


SUbieuTim *i»P0VE U.C.At.CC.NM.NC^MIKOi.-DOOC.TTpft.SMI .SOU) 
•IMENSION aouinoa •*€*>,(<H*K8CC.ftCA],AA<PAifl0A,NCA),CC(RA*»QC* 

1 •>€*) 

intesc* TvacA.seiA.sou 

BOUOIE PRECISION AA.CC 
ISNC0B * 1 

If (SOtA ,C0* «0*1 ISNC06 * ISKS0P ♦ 1 
If CSfttC .(Q. •&*) ISHGOe * ISKCOB ♦ 2 
If (TT8CA .At. 'CCA’IGO TO 11 

10 40 110 J > HA.1,-1 
•4 104 : * N«A,1,*1 

CO TO C IQO.Ii.1.1C2.1C33. I SAC SB 

100 C«I„ll * 

CO TO 104 

101 CU,J) * AAU.J) 

€0 TO 1C9 

102 CCU.J) « a( i.j) 

CO TO 1C4 

103 CCCX.j) * 

109 CONTINUE 

110 CONTINUE 
•fTUAN 

11 if mxt 

20 40CL*OtffA*(M4A«1))/2 
CO TO 30 

21 If CTTPCA *01 A*) SO TO 999 

koa * h»a 

30 80 40 1 * NOiL.1,-1 
CO TO (31*32.33.34).iSNCCB 

31 CC1.11 « Ad,II 
CO TO 40 

32 CCl*U * aa(1,1) 

CO TO 40 

33 CC(I.I) * Ad.1) 

CO To 4C 

34 CC(X.I) * AA(I«1) 

4-0 CONTINUE 

•CTUAN 

494 CAU. AS£IOMt,3,"*SAO»£ , ,3) 

■CHlM 
EN8 

• 4,3* 


•STN*) SO TO 21 


MfO 

nxro 


1C 

11 
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8MT C S LISTCft.tufcST'CA* 

$\i*P u«-«4CC *.C4 »uibC3 Q6 /uS-«S:27:S4 


H93402*39«cISTE«C 1J .«t*ST*ta» 

1 aroiiisc 

2 SFOft.ISC FCmSi* 

2 arc*.isc hti«b 2 

4 310*.ISC KSE*OI 

5 arot.isc nssuvt 

• a#o».isc -ss.c* 

7 aron.isc nsconv 

• arot.isc rsnowc 

• an**,* 


10 

axar 




11 

1.00 

1.00 

1.CC 

1.00 

12 

1.00 

1.C0 

1.CC 

1.02 

13 

1.00 

1.00 

1.30 

1.00 

14 

1.00 

1.00 

1.30 

1.00 

IS 

1.00 

1.50 

1.CC 

1 «C3 


antC.M 1.4,66,6,3. 


1.33 

1.00 

1.CC 

1.00 

1.05 

1.50 

1—0 

1.3C 

1.CC 

1.0C 

1—3 

1—C 

l.wO 

1.C0 

i.c: 

1.30 

1.33 

1 .m3 

1.03 

i.ca 

1.CC 

1.30 

1.30 

1.30 

1.33 

1.30 

1.30 

1.0C 

1.3S 

1.30 
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ABEL AREA MATRICES—AREA MATRIX PACE i 30 rs 7 - 5 


1 MSJ*lt*-00| 

2 I •0056114*000 

. .3 1*0015211*000 

5 i*ooo«9sa*ooo 
S I•0003173*000 

_ 0 1•00025***000 

7 U00017iJ*000 

• 1*0001222*000 

; _ 9 1*0001017*050 

|0 1*0000805*000 

II 0*0000000*001 
.12 i.oiir«aa*aoo 
13 *1.0108022*000 
15 |*00«»*Qlf*000 

_l* . 1*0027*10*000 
l* 1.0018001*000 

1 7 1*0012572*000 

#• 1*0001271*000 

H 1*0007122*000 

20 1*0005*12*000 

21 0*0000000*001 

22 1*12/8*01*000 
23 1*0201737*000 

25. 1*01317*1*000 
23 1*0074307*000 

2* 1*0011014*000 

2 7 1*0031231*000 

28 1*0025232*000 

21 l*00i‘i348*000 

30 1*0015335*000 

31 o.ooaoo'&o-ooi 

32 1*31213*8*000 

33 I*0*liS 4 1*000 

3* 1*02*7*12*000 

33 1*0130237*000 

.38 1*0014282*000 

37 1*00*4111*000 

38 |*OOH31i*O00 

31. 1*0037821*000 

50 1*0021128*000 

51 0*0000000*001 

.52 1*100122S*OCO 

53 1*1080120*000 

55 1.0153178*000 

53 1*0251311*000 

58 1*0140215*000 

«7 1*0111177*000 

*• |*0081*15*000 

51 1*00*25*1*000 

30 1*0011185*000 


1*1278210*000 
1*0010117*000 
1.0012470*000 
1.0004138*000 
I .000361 I*00c 
I*0002376*000 
1.0001681*000 
1*C00l252*000 
I •CaCG*63~3u0 
l .0000771*000 
1.22036*7*003 
1.02*1*03*003 
I .008*717*003 
1.0013210*000 
I.0025362*000 
1-001*647*000 
I .001 1791*000 
l*0008772*000 
1*0006783*000 
1*0005101*000 
0* OOOQOOC-COl 
1-085*150*000 
1-021*177*000 
1*0118613*000 
I.006*2*1.000 
l*OOiSi33.0CO 
1*0032081*000 
1.0023*63*000 
1*0018113*000 
l.0011681*003 
O.OQCOOQO.rOl 
1.1*26253*000 
l .0S03122.G0C 
1«C23i*7 3*00c 

1.01362*C*CCO 
1.O08*052*r00 
1.006276**000 
I •O0**662**333 
1*CC363iO*CGc 
1.0028611.000 
0.0000003*00l 
1.1013*27*000 
1.5371*61*003 
1 *03*657 6.OCO 
1.0227737*000 
1.0118105*000 
I.OlOil17*000 

1.0077227.000 

1.005*577*000 

1.0017341*000 


I.0302547*000 
1.0030005*000 
1.0010715*000 
1.0005155*000 
1.00032*7*000 
l.0002236.000 
1.000157**000 
l.OCOI186*030 
1.0000923*000 
1.000073**000 
1.3i7*931*000 
1.3216137*000 
1.0075751*000 
1.0038377*000 
I-0023|i**000 
1.0015173*000 
1*301106**000 
1*0508310*000 
1.0004*47*000 
r.OCOSl76*050 
1 *5«a7i13*000 
1.3622267*030 
1 .520*762*000 
I .0105211*350 
1.5563208*000 
1.5012166*000 
1.3030130*000 
1.3022603*000 
1.5017583*000 
I.3C11CA8.C00 
3.3000000*001 
I.13358-3*000 
1.3i21237*G00 
1.3206018*000 
1.5121210*000 
1.3082610*000 
1 .5558*27*000 
1.3011153*000 
I.5031326*000 
1.3027150*000 
0.3500500*001 

1 .25*5577*000 

I .3721*10*000 
1 • J3501 I**000 
I .0207302*000 
1 .5137303*000 
1 .50*7713*000 
1*0073117*000 
l.5056782.000 
1*30*5377*000 


1,01 H541 *000 

1.002J2*S*OQO 
1.000*180*000 
1.0009880*000 
1.0003022*000 
1.0002059*000 
1# 0(101184*000 
1.005 I I2S*000 
1*0000981*000 
I.0000709*000 
1.1185*53*000 
1.0164703*000 
l.0049815*000 
1.0039313*000 
1*002 I 2i3*000 
1,0019103*000 
1.0010117*000 
1 .0007883*000 
1.0004173*000 
1.0009965*000 
I ,S5|9907*0C0 
1.0973226*050 
i.Ol78*30*COO 
1,00*3970*000 
1.3057892*000 
1.003*210*000 
1.0028350*000 
1.0021190*000 
1.0016781*GOa 
1.00131*2*000 
1,8132170*050 
1.0**0625*000 
1.0357671*000 
1,018518**000 
1,0113677*000 
1.0076895*000 
I,3CS5iJ1*000 
l.009187**000 
1.0032758*000 
1.0026325*000 
0,3000005*00 I 
1,131*523*000 
1.36113*9*000 
1,0311187*000 
1,019*523*000 
1 ,012761**000 
t .30* 1 631*000 
1.006*327*000 
1.0059179*000 
1.0093513*000 


1*008S3qc*000 
1*0018612*000 
1.0007*51*000 
1.0001391*000 
i.aoo27 ao *coc 
|.0001*17*000 
1.C0019Q,*oco 

1.oca 1C69*ooo 
1 .0000892*000 
1.0000680*000 
I.0651119*000 
1.0132592*000 
1 *0056095*000 
| .0030869*000 
l.001*509*030 
1.001399,*000 
.I.0009825*000 
1 ,000 7.986*000 
I *0005898*000 
1 «000i7 6**030 

1.2l699 S5 * 0CC 

1*037233**030 
1 *0 l 5H9 , *OCO 
1 .0089197*000 
l.0053222*030 

1.0036609*000 
1*0026723*050 
1.0020369*050 
I.0016039*000 
1-0012952*000 
1 •73ll7*3*000 
1.0767891*000 
t.0307682*000 
1.016*965*000 
1.0109136*000 
1.0071665*050 
1 •CCS 2 2 3b*QCQ 

1 .0039772*000 
I .0031 295*003 
1*0025268*000 
2.0937639*003 
1• 1 37 3 39 7*030 
|*0523200*050 
1*027399^*000 
1.0173956*000 
1«Q1|8l3i*030 
l.0086569*000 
1.0065826*000 
1.005i7si*oao 
1*0011761*000 
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ABEU AREA 3CAT3ICES—AREA XAT3IX 

~~~*l P-OOQQQCO-OOt 0.0000000-001 0.3000000-001 

*1 2-2507778-000 2*35372***000 l. 1*12840.000 

-- , M .1*I758$8*-000 1.137*737*000 I•I I**730*000 

** i*04789as-ooo i.o*098o*-neo i.os3**o**oao 

w. t-038220*-CC0 I *03*5*11.300 1,031*1 06*000 

_V I •OJ 4 * I *37*000 1 .0223*03*000 1,320*9*0*000 

' %7 1*01*7232*000 1.015*531*000 1.01**8 31 *000 

* 58 1*0122*1**000 f.Ol158*7*000 1.010*6*7*000 

1 _s* 1*0073778*000 1.008*270*000 1.00850*5*000 

2 40 1*007*0*3*000 1.0070*07*000 1.00*7922*000 

| 41 0*0000000-001 O.COOoOC3-noi 0.0000030-001 

4 ? 0*0000000-001 2.**028*6-000 2. 176*0^7*000 

AA 1*2770737*000 1 • 2 l * 3 75'*•000 1.17 212 38*000 

♦7 1*1020*77*000 |.0883*3**030 1.0773a***000 

, _4*_ 1*05**007*000 1.0**257 7*003 1.3***g 15*000 

44 1*03*2*21-000 1.031*013*003 1.07*2*31*000 

4f 1*02357*8*000 1.022CSH*COQ 1.020*732*000 


*8 

1-0172372*030 

1.01*2933*000 

t,315*0*2*330 

4» 

1-0131**0-030 

1.3125252*000 

1,3!17321-JOO 

70 

1-01038*3-000 

1.0377377*303 

1.80*517**000 

71 

Q«0003300-031 

0.3000000-C01 

O.OQOOOOO-OOI 

71 

o-ooooooo-ooi 

O.OOOQOCO-COl 

2.61*07*6*000 

77 

1-737|*53-030 

1-3231S2**C0Q 

1.2523077*000 

?7 

1-173*121-330 

1.1232377-cCQ 

1,1072320*000 

n 

1-07*727*—OCQ 

1.0*72277*300 

1.0608323*000 

74 

1-0743727-000 

1.0*27310-000 

1.337*9*1*000 

77 

1-0317**1-003 

1.3274721*300 

1.3277975*000 

7t~ 

~l'-023l 3*3-300 

1.02l8**0*000 

I.020*601*300 

77 

1-017*333-000 

1-01*7722*300 

1.0159732*300 

•0 

t-0135731*000 

1.0132*00-002 

1.0127255*000 

• I' 

’o-ooooaca-ooi 

0.0000003-001 

o.ooooooo-ooi 

•7 

O-QOQOOOO-CO1 

0.3000303*001 

3.3000000-001 

8J I*728*507*000 

l•*7 3s 22 7*032 

1.3*81i12-000 

19 

1-17*7|7*-OQO 

l.167-77*.SCO 

1 .1**59*1-000 

IS 

1-0872115-000 

1.C869-07-00Q 

1,0802*22*000 

_84 1-04077*1*000 

l.3557033*300 

I .3515735*000 

87 

1-0*132*0-300 

1.0385*35*003 

1.03*125**000 

88- 

1-0300088-000 

1.02831*7*300 

1.32*7657*000 

_89 

1-022«I*2-COO 

1.02U720-0C0 

1 .320651**000 

80 ' 

~1-0177*S7-OOQ 

1.3171423*033 

l .014*2**«000 

81 

O-QQQOQCQ-301 

o.oooocoo-cci 

0.3300000*001 

87 

0-0830000-301 

0.0300003-rOi 

0.3000300-001 

*87 

7-5788161*000 

1.0c13005*000 

l .5*70970*003 

87 

1-74720*3-000 

1.22*1814*000 

1 • 1715336*000 

80 

1-1288*51-000 

1.1150303*300 

1.103*09 1*000 

'84 " 

"1-07772*6-300 

1.37123***300 

1.3*572*3.000 

87 

1-052*357-003 

1.3*87127*030 

1 .3*57*08-000 

88 

1-037*0*1*000 

1 »035?*5**CC0 

1.0337*72*000 

88 

1-028718**000 

1.0273130*000 

1.025*72**000 

100 

1-0225438-000 

1«321S723*0CQ 

1,0206*53*000 

— 

- -- 

- — • - — 

-• -.- 


PACE 2 RO 

0.0000000-001 
1 .3187503*000 
l .075*5***Q00 
l .0*75 7 7**0Q0 
1,028*778*000 
1.0 I 722***000 
1.0138012*000 
1,0103756*000 
I.0081150*000 
1.00*5122*000 
0.3000000-001 
1.57377*1*000 
1.1*17188*000 
I.0*83723*000 
l,0*07287*000 
1.0271*2**000 
1.017*211*000 
l.01*573**000 
1.011380**000 
I.0071238*000 
0,0000000-001 
2.33087***000 
I .20*1513*000 
1.0782763*000 
1.0553303*000 
1.036*177*000 
1.0260773*000 
1.0175*71*000 
1,0152303*000 

1,01217*5*000 
0.0000000-001 
2.7808086-000 
1.287*136-000 
1.12*3283-000 
1.0723008-000 
1,087*785-000 
1.033870*-000 
1.0253*01-000 
1,01768-6-000 
I ,0157*21*000 

o.oaaooao-ooi 

o.ooaoaaa-ooi 

1.7117872-000 
1.1*57775-000 
|,0935335-000 
1.0*0**78-000 
l.082«737-0Q0 
l,0317512-000 
1.028***5-000 
1.017*773-000 


rs 6-70 

0.0000000*001 
l.2277*07-000 
1.0812*06-000 
1 .0*25074-000 

1.02*271i-QUO 

1,017708l-COO 
1 .0127773*000 
1.0078*60*000 
l .0077501 *000 
I.00*2*92*000 

o.oaooooc-oci 

1.3*07*73*000 
1•I 173788*000 
| • 0*08 8 7* *000 
1 .037280**000 
1.0252*33-000 

i.a i 828 a**ouo 

1-0138533*000 
1-0108**2*000 
1 .00875*0*000 
O.GOOCOOC-QO! 

1. *S2B7sh*ooo 
1.1*7*587*000 
1*083*I8**0C0 
1.0505593*000 
1.03*0*7«*0CQ 
1.02*5503*000 
1*0135*30*000 
1.01*5385*000 
1.01l7C0C-00C 

o.aooococ-ooi 

2. *S77Sl5*000 
1.2358788-000 

1.11i*7s**oca 

1.0**3771-000 
1.0**3727*000 
1.0318577*000 
1.02*02*8*000 
|.31876*8*000 
1.0150787-000 
a.oQoaooo*oQi 

2.73*2753-000 
1.32*2277-000 
I • 1 *55526-000 
1.0850*12*000 
|.05*3*51*000 
1.0*02730*000 
1.0302800*000 
1 .023*2*3*000 
1 .0187*35-000 
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ABKL ARSA JEATSXC2S—AREA MATRIX PACE 3 ROWS 11-15 


tot 

0 . 0000000-001 

O.OOOOOOO-OOI 

0,3000000-001 

0 , 0000000-001 

O.OOOQCOC-OCI 

too 

o.oooooco-oot 

0 .CSC3003-00 1 

0,0000003-001 

0,0000000-091 

0 * 0000000-001 

.... IOJ 

3.083*513-OCO 

2.44-3072.000 

1 ,»;08538*000 

I,4004484*000 

1 •4S4*4Q)*0Q0 

10 * 

1«3411IS7-000 

1.2480720-000 

1 ,25l 1*44.000 

1 ,2154287.000 

1 .1873485*000 

109 

|« 1 4** 1 37-OQO 

1.1*43454.000 

l , 1 3043S4.CQ0 

1,1180444*000 

1-1070187-000 

_ 10 * 

t.0*7513*-000 

1.58*3050-000 

1 .3821 1 <*4*000 

l ,07S*8?3-'J00 

1 .0701873*000 

107 

I.04310*1-000 

I.34C7-74.0C0 

1,0547*53*000 

1.0531352-000 

l.0498489*000 

too 

1.0*4**77-000 

t .5—1*1 4-000 

1.3417173.003 

1,0344*41-000 

1.037 3*42-000 

. 10 * 

t «03S**31*000 

1.3334*88-000 

1 ,3320265*000 

l,0305032-000 

1 .0290 8 7S-CC0 

tto 

1.0177445-000 

1 .3245401*COO 

1 ,02534 17 *003 

1.0243170*000 

1 .0233094-000 

tit 

0 . 0000000-001 

o.ococcoa-noi 

o.occoaoo-ooi 

0 . 0000000-001 

o.oooccoo-cai 

. _ iia 

O.OOOOOOO-OCl 

O.SOSCOOO-OCI 

0 , 0000000-001 

0 , 0000000-001 

3.QQC000C-0Q1 

in 

o.ooooaco-ooi 

3.2248527*000 

2,8050783*000 

1,4382753*000 

l.451f-34-OCQ 

it* 

t.*443*'**-000 

1.34733*1*000 

1.3294532-300 

1,2778393*000 

1.2341242*000 

119 

1.2034314-000 

i.ia«54*4.oco 

1,1438530.000 

1,1470120-000 

1.1327852*000 

it* 

I.I2043*2-000 

{•U01S72.CC0 

1,10104*2.330 

1 ,0930704*000 

1*084037—030 

117 

1.074SO08-COO 

I.C7-2-12-OCO 

l,0*42412.000 

1,0447807.000 

I,0407333*000 

*10 

1.0570437-000 

I-C5372SC-Q03 

I,3504774*000 

1 ,0478887*000 

1 .0453283-000 

It* 

1.0*24721-000 

l.3-C7*8*-C00 

1.0387085-000 

1 ,03492*2-000 

1,0351*71*003 

tto 

1*0335385-000 

1.3325844.000 

1,3304900*000 

l.0293814*000 

1 .0281559-030 

_ Ul 

o.ooocooc-coi 

c-cocooco-ooi 

0,0000300-001 

0 , 0000000-001 

0.0009003*031 

til 

o.ooooano-ooi 

o.ccccooa-ooi 

0,3000000-001 

a.oooaooo-ooi 

O.aOCQCQC-CCl 

113 

o.ooooooo-ooi 

C.CCOCOCO-OOl 

3.35*94*4.000 

2,4116411-aoo 

2.003492**000 

_11* 

1.70i744j.000 

l.5373«0*-CC0 

1,4317821-000 

1 ,3583370-000 

1 .304(432*030 

t!9 

1.242548—000 

1.2247554.000 

1 ,2032034^300 

1.1813389*000 

l.143058*-000 

11* 

1.1*75302-000 

1*13-33C8-0QQ 

l,1228024*000 

1,112*099*000 

1 .1041589*000 

_111 

1.044*305-000 

1 .C845454»000 

! ,0834358.000 

1.077*345*000 

1 .0729815-CCO 

110 

1.043*441-003 

1.C4 — 244.Q00 

1.0407221-003 

1.0573342*000 

l.0542292-020 

11* 

1.0513753-000 

1.34*7444.000 

1.04*3141.000 

| ,0440720*000 

t.0419876*003 

_130 

I.0400507-COO 

1.0332471-000 

1,0345447*000 

l.0349928-000 

1.0335217-000 

111 

0. 0000000 - 00 l 

o.occcooc-ooi 

o.joooooo-aoi 

o.acoooao-ooi 

0-000CCCC-C31 

111 

0 . 0000000 —CO 1 

0.3CC0308-OCI 

3,0000000-001 

0 . 0000000-001 

0.0300000-091 

_111 

0 . 0000000-001 

3.3300300-001 

3 .acaoaco-oei 

3,4894275*000 

3.01 4 9 *5 2*030 

11* 

2.0447315-COO 

1.7502103-000 

1,5748313.000 

I ,4*SS7*0-000 

1.3877231-000 

119 

1.3301273-000 

1*2353132-000 

1.2507040*000 

l*2222527*000 

I •l987472-COG 

_Jl* 

1*1740338-COO 

1.1423413-000 

1.1490703.000 

1.1354724*000 

l .1248535-000 

11*. 

1*1153*35-000 

1.13441U-OC0 

1 ,0444470*030 

l ,0427544*000 

l.0847418.200 

11* 

1.0813144*000 

1.07*4024.000 

1 ,0714353*000 

i ,0478404*000 

l.0441333*002 

_11* 

1*0407132-000 

1.05754*4.000 

1 ,35*6*51-000 

1,0514826-000 

l .044947—003 

1*0 

1*0471401-000 

i.C4So43*.cao 

1 ,0430430*000 

1,04(1764*000 

1 .039930**000 

1*1 

0.0000000-001 

O.OCOCCOO-OCl 

o.coooaac-coi 

o.oooocan-ooi 

c.ooGoaoo-oci 

1*1 

0.00033C0-001 

O.CCCO r 'CO-COl 

3,3000000-001 

0 . 0000000-001 

0 -00CCC03-C31 

1*1 

O.OOQOOCQ-OOl 

O.OsCcSSO-OOl 

C.0CC03C0-QC1 

a.oooooco-oai 

3.41 474^7 *000 

1** 

3.1134*37*000 

2.1280713.COO 

1,7*742*8.000 

1.6154874*000 

I .44870*3*000 

1*9 

1.41441 74-CCC 

1.35572*1-00*0 

1.3087543*000 

l,27l48j|*0Q0 

l .2411487*030 

1** 

1*2141111-000 

I.14SC734.000 

1.1771842.000 

l ,l 4 1 92 25-000 

1 . 1 484*73-020 

1*1 

1*1348*41-000 

1.2255447.000 

1.1175102-000 

1 ,lQ44i*7-0Q0 

I .1021493-000 

1*0 

1*0454**4-000 

1.0847544.000 

1 ,08441 92-000 

1,0795544-000 

1.0751lac-oco 

' 1** 

1*0710527-000 

1.0473183-000 

1 .0438804*000 

1 ,0407062-000 

1 .0577491-000 

190 

1*0950*57-000 

1.0525150*000 

1.0501541.000 

1,047*418*000 

1.0459086*000 




ABEI AREA MATRICES—AREA MATRIX 


PACE 4 ROWS 16-20 


|*i 0*000*1000-001 O.OOOOOOO-QOI 0*0000000*001 0*0000000-001 0*0000000*001 

1*2 0*0000000-001 Q.OCOClOO-OOl O.OOOOCOO-OOI 0.0000000-001 0*0000000-001 

1*3 0*0000000-001 o.oooonoo-ooi Q*0 COOqC 0-00l 0, 0000000 - 00 1 0 . 0000000*001 

It* * 3*73*4811*000 3-2103332*000 2.13 77515*000 l .8*3**9• 7*000 1♦45364*l*000 

I** 1**312051-000 I •‘*•*50322*000 l.OSC^S^^OOQ 1.33 1 *289*000 1.2920 I 7 1 *000 

ISA 1*25**350*000 t .2333507*000 l • 2 1 07* 1 **000 l . 17 1 *5 l 0*000 1. I 755*** 1 *000 

1*7' 1*1412321*000 | . M9ft727*C00 1 . 1 379885*000 1* 1281 <**2+000 l • l 17*5 15*000 

1*8 1*111*578-000 1*107*381-000 1.07828«2*C00 1.0925251-000 1.0872*3**000 

1*7 1*0827737*000 1*0730728*000 1.0770271*000 1.0702981*000 1.0468526*000 

1*0 1 *043461 7-000 1-0607007*000 1 .0S79<*66*n00 1.0553 8 08*000 1.0529860*000 

1*1 o*oouoooo-ooi o.roooocc-oai n.ocaacoo-ooi o.oaoaoao-ooi o.ooacoac-oai 

142 0*0000000-001 Q.COO3000-00I 0,3000000-001 0.0000000-001 0*0000000-001 

143 o«oooooco-ooi o.ocoaaco-oc i a,oooooao-ooi o.auoooaa-ooi o.ooaacoc-ooi 

147 0*0000000-001 3*8528173*000 3•3039i56-000 2.2353703-000 1*8887664*000 

14* 1*4707098-000 1.5630967*000 1,7729790*000 1,7058307*000 1*3538188*000 

*144 1*3123507-000 1.2785396*000 1.2507720*000 1 ,22682*7*000 1 •2066589-00G 

(47 1*1872749-000 1. 1 7*\58 I*000 1,1609077*000 1.179205 3*000 1*1388135*000 

148 1•1275319-QQC 1.1212007*000 l . I ! 36837*000 1,1068 8 6 8*000 1.1007053*000 

147 1*0750678*000 1.0899 100*000 1,0851771*000 1,0808 220*000 }. 0768G*«.-OCC 

1T0 1*0730891*000 1.0696756*000 I .066-773-000 l .C637 70**000 1*060695 7-000 

171 o*ooooooo-oci a.oocQOoa-nei o.ocooooc-ooi o.ooaoooo-ooi o.ccaoooc-ooi 

172 0*0000000-001 O.OQSCOOC-CC1 O.OOOOGOC-OOl 0.0000000-001 C.COOOOOO-OC1 

173 0*0003000-001 O.OOOQOCO-OCl O.OOOCOOO-OO 1 O.OOCOOOO-COi, O.OOOCCOC-OQl 

179 0*0000000-001 Q.OOOO^OG-OOl 3.9667995.000 3.39^9262*000 2-3025726*000 

175 * 1*7329305*000 1*7273656*000 1,597708 2*000 1.5007729*000 1.730376 3*000 

174 1*3757290*000 l .332*687*000 1.29697*5*000 1,2677670*000 1*2725657*000 

177 1*221 279 **ooo 1.2029777*000 1.18696(30*000 1.1729295*000 1. 160S29 i *000 

178“ 1*1975020*000 1.1396720*000 1.1307320*000 1.122*878*000 1*1155369*000 

177 1 * 104763**000 1*10292*7*000 1 .097*1 31*000 1,0923512*000 1.087*896*000 

180 1.0833856-000 1.079*027*003 1.0 75 7078-000 1.0722739*000 1.0490753*000 

181 0*0009000-001 O.OOOOCOO-OOI 0,3000000-001 0.0000009-001 0.0003003-031 

142 0*0009000-001 0.0000000-001 3.0000000-001 0.0000000-001 3*0000003-001 

183 o.OQOOooo-oot o.ccoaooo-ooi o.oooacoa-ao! o.ooooooa-oai a*coccooc-aoi 

1*9 0*0000000-001 O.COCOOOO-COI O.OOQOaOO-OOl *,0770110-000.3.7835655*000 

145 2*3579696*000 1.975*736*000 1*7631061-000 1,625l67*-oOO 1*5275290*000 

144 1.9595138*000 i. 39 776 15*000 I *352,365 1 *000 t.3j523*6-000 1*28*319 3*000 

147 1*2542001*000 1.2358617*0Cq 1,2165575*000 1.199 7255*000 1.18993*3*000 

|44 * 1*1719967-000 1.1601969*000 1.1*77683*000 1,190388**000 1*1319139*000 

147 1*1292262*000 1*117226**000 1.1iae31 3-COO 1,10**702-000 1*0995829-000 

170 1*0796177*000 1.3900299*000 1,3857810*000 1.0818372*000 1.0781690*000 

191 0 * 00000 * 0-001 a*oocoooa-aci o.oocccco-aat o.aoooooo-ooi o*oooccoc-ooi 

172 o.ooaoooo-ooi o.oooococ-ooi o.ccoocQO-ooi o.ooaaaoo-ooi a.ocoooao-ooi 

192 0 * 0000000-001 o.osooooc-oo 1 o.cccocoo-oo l o.ooooooo-oai o.ooocaoo-oai 

199 q,ooacooo-coi o.ccooooo-ooi o.ooooaoo-oot 0 , 0000000-001 *• t8*407«>*aco 

195 2*5700093-000 2.7119916*000 2.0175630*000 1 ,798»68S-000 1.6553901*003 

194 1*5591629-000 1 . *7837 1 9*000 1.9 14 320 3-000 |.372Q407-000 1*3333171*000 

197 1.2010324-000 1.2737228-000 1.2503377-000 1.2301QS5-000 1*212*478*000 

194 1*1747086*000 1*1831779*000 1.1708857-000 1.1598996*000 1*1500087*000 

197 1.14106***000 1.1329735*000 1.1255732*000 1.1 187767-000 1 * 1 12S7Q3*000 

200 1*1044412*000 1.1015958-000 1*0947271*000 1.09221*8-000 1*0880238*000 




PAGE 5 HOWS 21-25 


ABEL AREA MATRICES—AREA MATRIX 


lot o.oooanoo-ooi 
202 0 * 0000000-001 
202 0 * 0000000*001 
204 0 * 0000000-001 

20$ 4*2145007*000 

20 $ 1*4951085-000 

207' 1*3512204*000 
20« 1*2251048*000 

204 1*1544132*000 

210 1*1202041*000 

21 I 0 * 0000000-001 
2|2 0 * 0000000-001 
2|3 0 * 0000000-001 

214 0*0000000-001 

21 $ 0 * 0000000-001 
214 1*8443454*000 

217 1*4107357*000 

214 1*2544905*000 

214 1*1401411*000 

220 1*1347470*000 

221 0*0030000-001 
'222 0 * 0000000-001 

223 0 * 0000000-001 

224 0*0000000-001 

‘22$ 0 * 0000000-001 
224 2*13905-3*000 

227 1.4524044*000 

229 1*2431437*000 

224 1.2024383*000 

230 1*1504072*000 

231 0*0000003-00! 

232 0 * 0000000-001 

233 0*0000000-001 

234 0*0000000-001 

23$ O.OOOOOOQ-OOl 
234 2.4171772*000 

237 1.5704444*000 

238 1*3344184*000 

234 1*2280270*000 

‘240 1*1474210*000 

241 0*0000000-001 

242 o*ooaoaaa-aoi 

243 0*0000000-001 

244 0*0003000-001 

24$ o.ooooooo-ool 
244 2*4741484*000 

247 1*4815145*000 

249 1*3824003*000 

244 1*2540745*000 

250 1*1948483*000 


0 * 0000000-00 I 
0 * 0000000-001 
o.acoaoca-oot 
o.ooacooo-ooi 

3*454* 1 28-GOq 
1 *S803«’4*000 
1*317401 ***000 
1.2088-39*000 
1*1SOZ24 7 *CCO 
1*114| 7 7 3*000 
C.0000300-001 
0 * 0000000-001 
0*0000003-301 

o.coooooa-ooi 
4*3418418*000 
1.71-3-18 *OCo 
1*3489-51*000 
| .2377 1---G00 
1.1*92534*000 
1.1278434*000 

a.coooaoo-opi 
o.scoooco-aoi 

0.0000300-001 
0 *0000000-03l 

o.eeoocon-oci 

1*8994223*000 
1 .4297605*300 
1*2702975*000 
1.1902344*000 
1.1427547*000 

c.aaaaooo-ooi 
o.coooooa-noi 
o.ccccoan-ani 
o.cococco-oci 
a. ooooooo-ooi 

2.1780731*000 
1 ,5029224*000 
1.3072747*000 
1.2134293*000 
1,1589759*000 
0*0000300-001 
0.0000000-301 

o.ooooccc-ooi 

0.nacQ000-ooi 
0.0000003*001 
2.4440364*000 
1,5927237*000 
1*3-953-4*000 
1*239 j 379*000 
1*1744594*000 


0,3000000-001 
0 . 0000000-001 
0,0000030-00 I 

o.coooooa-ooi 

2,4448393-000 
1,5018400*000 
1,2591289*000 
1,1944230*000 
1,1416793*000 
1,1096148*030 

a.ocooooo-aoi 

o,caooooo-aoi 

o.ooocooo-ooi 

a.anooooo-aoi 

3.7369137-000 
1 ,63622-i*000 
1.33-0228*000 
1 • 220 7 3 3-*000 
1,1593927*000 
1,1215227*000 

o.accocno-ooi 

o.ooooooo-aoi 

o.ocacooc-ooi 

c.oooooco-ooi 

-•-919495*000 
1.7431108*000 
I .33649 15*000 
1.2502535*000 
1.17884-1*000 
l . 1 3554 t 2*000 
0,3000000-001 
0,0000300-001 
0.3000030-301 
a.aaoaoac-oai 
o.coaoocc-ooi 

1 .9322952*000 
l .--85750*000 
1.2835296*000 
l .2QC3C92«G00 
1 . 15377-2*000 
3.0300000-001 
0,3000000-001 

o.ooogcco-oo1 

0,3000000-001 

o.cooooao-oci 

2,216-158*000 
l ,S2.3 1952*000 
1.3212552*000 
I .2239823*000 
1.1473421*000 


0 , 0000000 - 00 ! 

o.aoooaua-oQi 

Q.OOOQQOa-OOl 
0 , 0000000-001 
2,0588-05*000 
1,4-04100*000 
1,24-7213*000 
1,1815604*000 
1,1338842*000 
1.103-681*000 
0.0030003-001 
c.ooQCoao-ooi 

0 . 0 Q 000 Q 0-001 
0 . 0000000-001 
2,5146352*000 
1.5250176-000 
1 ,30-** l 49*000 
1.2056*51*000 
1 . 150-25 4*000 
1,1156467*000 
0 , 0000000-001 
o.ooaooao-aoi 
0 . 0000000-001 
o.oaaoaaa-oot 

3,8176350*000 

1.6316813*000 

1,3502943*000 

1.2325714*000 

1.1485555*000 

1.1288905*000 

0 , 0000000-001 

0 . 0000000-001 

O.QQOOOQO-QO! 

a.aoooaco-ooi 

4,5898244*000 
1.7714353*000 
1 ,4038415-000 
1 .2627232*000 
I , 1884574*000 
1 1 143231 2*000 
a.noooooo-coi 
o.ooooaao-ooi 

3,0000000-001 

0 , 0000000-001 

o.oaaoooa-oai 

1,9*4-401*000 

1,4671832*000 

1,29467-2*000 

1,2103503*000 

1,15879-1*000 


0*0000003-001 
O.OOCOOOC-OOI 
O.OOOOOOO-OOl 
0*0000000-30 I 
t .832587 7*000 
l * 39 i -9*4 «ooq 
1*2435817*000 
| *1700265*000 
1.12*7513*050 
l .0986951*000 
0,0000000-001 
Q.oaoccaa-oai 
0*0000000-001 
o.ooooooc-oai 

2*0443232-000 
l .4*14362*000 
l .2740077*000 
1.192213**000 
1 • 1-22** t 3*000 
1 . 1 102-50*000 

o. ooaooao-ooi 
c.caaoooc-ooi 
a.oacoocc-cai 
Q.caoccou-ooi 
2,56734*7*000 
1.5-78843*000 
1.319578**003 
1*2168681*000 
| • 159l7***CQC 
.1.12274*5*000 
o.aoGoooc-aci 
a.Qccoaac-aai 
a.occcooc-cai 
0 ,Q00QQQQ-00I 
3.8966868*000 
1 ,45477*0*000 
|,344422C*0C0 
1.244353**000 
1,17770*0*000 
l . 1 36274**000 
0*0000000*051 

Q.occooco-aoi 
0 • OCCOCOQ-00l 
o«ocoaacc-oot 

4*605*59i*000 
1*7493334*000 
1*4210573*000 
1*275.1203*000 
l *1900304*000 
i*iso928o*oaa 




ABEL AREA MATRICES—AREA MATRIX 


— 

' 251 

0*0000000-00! 

Q.oooooac-ooi 

o.oocoaoo-ooi 


Z%* 

o.ooooooo-coi 

o.ooooaoo-ooi 

o.cocoaco-ooi 


252 

0*0000000-001 

o.aoooccc-coi 

o.acacoco-aoi 

— 

259 

o.ooooooo-aoi 

o.ooaocco-aoi 

o.oooooon-coi 


255 

0*0000000-001 

o.accoaco-oot 

o.ooaccoo-cpi 


25* 

9.7795707-000 

* , 0501732*000 

2,71*0214.000 

r"‘~" 

~2S7 ’ 

1*824*233-000 

1.705921**000 

1.61*7150*000 


255 

1.43*0813*000 

l .3*82326-000 

1.34*3259.000 

i 

259 

1.287**25*000 

1 .26773*8-000 

1.2S01473-000 


' 2*0 

t.20 757 7S-000 

1.1959490*000 

1.1853852*000 


2*1 

a.ooaooao-ooi 

g.eooc'co-aoi 

0.3000000-001 


2*2 

o.ooooooo-aoi 

o.ococooo-ooi 

o.ocooaoo-cot 

243 

o.oooooco-ooi 

a.ooccoca-ooi 

o.uccocco-aoi 


2*9 

o.oaooooo-aci 

o.acococo-cct 

o.cocoaoe-coi 


2*5 

0.0000000-001 

a.occoooc-aoi 

o.ccoocoo-ooi 

.. 

24* 

a.aoociooo-ooi 

*.8716723-000 

4,12*7732.000 


2*7 

2*0272344*000 

l.8539208-000 

1.73C03C8-0C0 


2*8 

1*5037480-000 

1.*5*9365-000 

l.*13*202-000 

— - 

2*9 

1*3224950*000 

1.2946881*000 

1,2793325*000 


270 

1*2303321-000 

1.2173957*000 

1.2050»7*-00a 


271 

0.0000000-001 

o.ooooccc-rai 

O.OCOOCOO-OOI 

272 

0*0000000-001 

O.CGOoOOO-OOt 

C.30C0C00-0CI 


273 

0*0000000-001 

O.OOOqOOO-PO1 

CwOOCOOO-OCl 


279 

0*0000000-001 

0.00000C0-0Cl 

O.OCOOCCC-OOl 

275 

0*0000000-001 

0.300u0c0-00l 

o.occocco-oai 


27* 

0*0000000-001 

o.oooorcc-coi 

*,94204*6.030 


277 

2.327708**000 

2.0579371*003 

t.8804*15-000 

278 

t.582*0*5-000 

1.5218136-000 

1.*714258-000 


279 

1.342S549-000 

l•3 355-* 2*CC 0 

1.3115S58-CC0 


280 

1.2553747-000 

1.2*02457*000 

1.2265820-000 


iot 

0*0000000-001 

a.ooaoocc-cat 

3.C303000-001 


202 

0.0000000-001 

o.cuccacc-coi 

O.CC0030C-0Q1 


283 

O.OCOCCOO-OOl 

a.oooooca-pci 

C.30C0C30-CQ1 


“289 

'0*0000000-001 

a.oocoooo-ooi 

0,0000330-001 


285 

0*0000000-001 

o.ocooooo—70 1 

o.oooacos-ooi 


28* 

o.ooooaoo-ooi 

o.CGQocso-ooi 

C.OCCOOOO-OQI 

-2*? 

2.2531457-000 

2.3434554*000 

7,3881927.000 


288 

1.4790817-000 

1,601947**C00 

1,5396*08-000 


289 

1.4079410-000 

1.3761127*000 

1.3*83522-300 

—* - 

“290 

1.2830*31-000 

1.2437-*4-0CQ 

1.250157**000 


291 

0*0000000-001 

o.oaoacco-coi 

0,JCOQCOO-C31 


292 

0*0000000-001 

o.oooa^co-oci 

C.20COCCC-OC1 

•* 

293 

o.oacooca-ooi 

c.rooo?co-cc i 

0.C0C33C0-001 


299 

Q.OOQCaOQ-COl 

Q.ccoo^co-ool 

a.ooccacc-oci 


295 

0*0000000-001 

o.ccococo-ooi 

0 , CSOQCOO-CC1 

—— 

'29* 

0*0000000-001 

O.OCOOOCO-COJ 

O.OOCOCOO-OQl 


297 

4.3404037-000 

2.8980*99.000 

2.3990700-000 


298 

1*8003*88-000 

1.7QC0243.COO 

1.9211l2 2-000 

— 

299 

1.44013*8-000 

1.*222*33.030 

1,3845635*000 


300 

1.31371*2-000 

1.2938752*000 

1.2740499.000 


PACE 6 ROT'S 26-30 


0 , 0000000-001 
0,0000003*001 
0 , 0000000-001 
0,0000003-00 t 
C, 3000000-001 
2.25*1158-000 
l .5*32247*000 
1,0351283*0 00 
1,23**9 3**000 
t ,175*013-000 
0,0000000-001 
o.caooaoo-ooi 
o.ocjooooa-ooi 

0,3000000-001 
0,0000003-001 
2,7411783-000 
1.434*327-000 
1.3789436*000 
l ,26 12027-00C 
i, 1 9 * 04 * 7*000 
o.cooooao-ooi 

0,0000000-301 

a. oaooooa-oot 
a.ooocaao-nai 
0 . 0000000-001 
*,1980520-000 
1.7537442-000 
1.*29*451-000 
1.2908418-000 

», 2 i*i*a*-oac 
0,0000000-001 
o.aoaoaao-ooi 
o.caaoooo-aai 
a.aaaaaac-oai 
o.ooooooo-cai 
5,050839**000 
1.9070000-000 
I,*88152**000 
1.3239**7*000 
1.2340338*000 

o.oaaooao-oai 

o.oooooao-cot 

o.ocooaao-ooi 

0,OOOOQQC-CQ1 
0,0000000-001 
0,0000000-001 
2.118Q2**-000 
1,55728*0*000 
1.3410*39*000 
1,2400049-000 


Q. 0000003-001 
Q.OQOOOQC-OOl 
0*0000003-001 
0*0000000-301 
0 * 0000000-001 
1.9940808*000 
1 »*85S89h-0C0 
1*3097297*000 
1.22Q359H-0QQ 
1.14481 18-000 
0,0030003*00 I 
0.0030000-001 

a.ooooooo-ooi 

Q.OOCOOCC-OOl 

o.aocccGc-ooi 

2.2912039*000 
1.543032**030 
1.3*88955*000 
j.2**9602*000 

i. i 8 *c* 9 <**aao 

O.OOCOOOO-OCl 

Q.cosccno-ooi 

0*0000000-301 

O.COOOCCC-OOl 

a.ocaoooo-ooi 

2.8075*49*000 
1 .4578855*030 
1.3935382*030 
1.2721519*000 
1.23278^5*000 

o.ooooooc-coi 

0.CC23CCC-0C1 
Q.CCOOCOc-OOl 
Q.Q3COCOC-00 1 
0*0000003-001 
•*•2700 7*7.000 
1*7772287*000 
| ,***8492*000 
1.3023233-000 
l .223185 t-OCO 
0« QCOCOOO-CO1 
O.OOOCCOC-COi 
O.OCCOCOC-OOl 
O.OCOCCOO-OQ 1 
C.CCOOCOO-OOl 
5*1380804*000 
1.9330099*000 
1.50*5194*030 
1.33S95***000 
1.2*5**9l-0C0 
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ABEL A3SA MATH ICES—AREA MATRIX PACE 7 RCTS 31-35 


301 

0 - 0000000-001 

0 

*0000000-001 

o.aoocooo-ooi 

302 

0-0000000-001 

0 

. 0000000-001 

o.oooocoa-aoi 

303 

0-000Q0C0-001 

0 

.0000000-001 

o.cooococ-aoi 

30«l 

o-ooacooo-ooi 

0 

.aoooooo-oot 

o.oooccoo-ooi 

30* 

0-0000000-001 

0 

.0000000-001 

0.CQ0000C-0C1 

- *0* 

0-0000000-001 

0 

.0000300-001 

0.3000000-00 1 

307 

5-2237494-000 

9 

.9105943-000 

2.9-22417-C3C 

300 

1.45849“1*000 

1 

.8232845-000 

1.7207341-300 

.. 307 

|-*204JO7-000 

1 

.9752492-000 

1,9349945-000 

310 

1-3978895*000 

I 

.3250398.000 

1.3094970*000 

311 

0-0000000-001 

0 

. 0000000-001 

o.oooocao-coi 

312 

0-0000000*001 

0 

•oooooac-aoi 

0.0000030-00 1 

3|3 

o-oooooco-ooi 

0 

•ooooooo-na 1 

o.aooaooc-co 1 

317 

O-OOQOOOa-OO! 

0 

.oooaaoo-ooi 

o.oaaooco-co! 


0-0000000-00l 

0 

•ooooooo-aoi 

o.cooacoo-aoi 

314 

0-0000000*001 

0 

.0000000-001 

0,0000300-001 

317 

O-OQOOOOO-COl 

5 

.3032432*000 

9.9792o5S*aao 

_ 310 

2-1749824-000 

1 

.9390394.000 

1.8954012-000 

317 

|-5420343-000 

1 

.5347840*000 

1.9402597-000 

320 

1-3841594*000 

l 

.354735l*000 

1.3342437-000 

_32! 

0-0000000-00t 

0 

• 0000000-00 t 

0.0330000-001 

322 

* 0 . 0000000-001 

0 

.0000000-001 

0,0000300-001 

323 

0-00Q0000-001 

0 

.0000000-001 

o.ocacaca-cai 

327 

o.ooanooa-coi 

0 

.0000000-001 

o.oc’ccaoa-aoi 

32* 

0 - 0000000-001 

0 

,0000000-001 

0,3CC0Q OQ-GQ 1 

324 

O-OaOCOCO-OQ! 

0 

•oococoo-aci 

o.ccooace-ooi 

_327 

O.OOCCCOO-OOl 

0 

.oocaaaa-aai 

5.3413903-000 

- 327 

"2.5023340-000 

2 

.2051903-000 

2.0090738-000 

327 

1-4773257*000 

1 

.4091592*000 

l.5524978-000 

330 

1-9242955*000 

l 

.3485797-000 

1,3715C49-QOO 

331* 

a-oooooco-ooi 

c 

.oocoooo-oci 

o.caoccco-aai 

332 

O-OOQOCOQ-OO1 

0 

.0000000-00! 

a.oooaooo-co 1 

333 

o-ooonooa-oai 

c 

•oaoooac-ooi 

3,3300000-001 

337 

o-oooooco-ooi 

0 

• ocoQOGC-oo 1 

o.cooooao-coi 

33* 

0 • 0000000-001 

0 

.0000000-001 

o.oooooco-aot 

334 

0-0000000-00» 

0 

•OQOOOQO-OO1 

C.CCOCCQO-COl 

337 

a-aoaoaca-aai 

0 

.0000000-00 1 

0.0000000-00 l 

330' 

3-0711534*000 

2 

•5358317.000 

2.23393S6-000 

337 

1-7*19834-000 

1 

.4456752*000 

1.4241054-000 

HO 

1-97*2477*000 

l 

.9923349-000 

1,9109054*000 

371 

0 . 0000000 - 00 1 

0 

.oocoooo-ooi 

0.0003000-301 

372 

0.0000030-001 

0 

.ccoaoco-ooi 

o.occoaoc-cai 

“ 373 

0 . 0000000-001 

0 

.rtoooOCO-ClC 1 

0,0000020-001 

377 

O.OOOCOOO-OOl 

c 

.ooaoooa-aoi 

o.ooooaco-oci 

37* 

O.OOOCOOO-OOl 

0 

.0000000-001 

c.ooooooc-oot 

. 374 

O-OQQOOOQ-COl 

0 

.0000000-001 

0,0000020-001 

377 

o.ooooano-ooi 

0 

•ooooaoo-flci 

o.ocoocco-nci 

370 

4-4740052*000 

3 

.1124249-000 

2,5488990-000 

’ * 377 

1.7121454-000 

1 

,8012982*000 

1.7138343-000 

3*0 

1-53494*3*000 

1 

.9920230*000 

1.9552779-000 


0,0000000*001 
0.0000000-00! 
a. ooooogc-oQ! 
0 . 0000000-001 
o.ooooaco-co! 
o.oaocooo-aoi 

2.93J4799. G ca 
1 .4900947*000 
l .9024122*000 
I .2842347-000 
0,0000003-00! 

o.acoacoa-oo! 

a.ooaoooa-ooi 

o.ooooooc-aoi 

0.0000003-001 

o.aaaooco-cai 

2.^358413-000 
1,7912045-000 
1 . 9505 l 23*CC0 
1 .3153578-000 

o.ooacaaa-oai 

a.ccooccc-cci 

a.aaoccoo-aoi 

O.OUQOCOO-OCI 

o.ocoocoo-ao! 

o.oaoocoo-ooi 

9.596*809*000 
l ,a*82Sl«*C00 
1 .5051290*000 
1,3*47^774-000 
0,0000003-001 
0,0000000-001 
0,0000000-00! 
o.ococcco-ao! 
o.ooooaoa-cai 

O.OCOOOCQ-COI 
5.‘♦731545-000 
2.0338115-OCO 
i ,S4a‘»403-coo 
| ,3831*84-OCO 
0,0000000-CCI 
O.OOQOCCO-COI 
0.0000000-00! 
C.OOOOCOO-OC! 
O.OOOOOCO-OO! 
0,0000000-00 I 
O.OuOOOOO-OOl 
2.2413817-000 
! ,4928995*000 
| ,*231*482-000 


0 .0000000*00! 
O-OOCOOOC-OOl 
0.0000003-001 
0 aOQQOOOC-OO1 
0.0003000-00 I 
a.OOQOOOC-OQl 
2.1‘47‘4‘492-COO 
l .5797977*000 
1 .3734995*000 
1 .2493! |C*00Q 
O.OCCOCQQ-OGl 
Q-OOOQCOO-OCl 
Q.oaacaoc-aai 
o.cococca-ooi 
0*0000003-00! 
Q.ococooa-oc 1 
2.9483993-000 
1.4587857*000 
1 .9 141533*003 
l .2*45509*000 
0 * 0000002-001 
c.ooocoao-aoi 
3 . 0000000 -cui 
a-occooac-ooi 

Q.OOCOCQC-OOl 
0 *0000000-00 I 
3.0283044*003 
1.7419545*000 
1 . 9*9*44 2**000 
1.3240072*000 
O.COOOOOC-OO 1 

a.ocooooc-ao1 
o.ocQoooc-ooi 
o.accoooc-ooi 
a.oooccoc-co1 
0 . 0000000*001 

9.4133442*000 
1 .8903973-000 

1 .5 198543-000 
1,3585417*000 
C *0003000-001 
Q.COOOCOC-OOl 
O.OOCOQOC-OOl 
3.C3Q0C0C-O0l 

a.ooccoac-oai 

0.C00CC03-0CI 

5.5537474*000 

2 *CS8 2585*000 
1 .589074«*000 
1.3498129-000 





ABEL AREA MATHICES—AREA MATRIX 


PACE 8 RO-S 36-40 


»1 

o.ooooooo-ooi 

a 

. 0000000-001 

352 

o.ooooooo-ooi 

0 

. 0000000-001 

3S3 

o.ooooooo-ooi 

0 

.OOOOOCO-OOI 

359 

o.coooaoo-oai 

0 

.0000000-001 

355 

O.QOQOOOO-OOi 

O-.OOOoOOO-COl 

35* 

o.ooooooo-ooi 

0 

•ooooooo-ooi 

352 

O.OOOOOOO-OOI 

Q 

.acoocoo-Got 

358 

5**332252*000 

6 

.7937366*000 

359 

2.08292**9*COO 

1 

.9338091-000 

3*0 

1 . 5995595*000 

l 

. 5*8953*♦ -COO 

3*1 

o.ooonooo-ooi 

0 

. 0000000-001 

3*2 

o.ooooooo-ooi 

0 

.aooaoco-ooi 

3*3 

0.0000000-001 

a 

.0000000-001 

3*9 

o.ooooooo-ooi 

0 

.0000000-001 

3*5 

o.oaanooo-ooi 

0 

.noooooo-ooi 

3** 

o.ooooooo-ooi 

0 

.ocooaoa-ooi 

3*7 

0.0000000-00 1 

0 

.OOOOOOO-COl 

3*8 

Q.ooooooo-ooi 

5 

.7115770-000 

3*9 

2.31*2754*000 

2 

.1063189-000 

370 

1**740011*000 

l 

• 61*49025-000 

371 

O.OOOCOOO-OOl 

0 

•ooooooo-oot 

372 

0.0000000-001 

0 

•cooqqoq-oc 1 

373 

O.OOOOOOO-OOI 

c 

.COOOCC9-C01 

379 

O.OOOCOOO-OOl 

0 

.0000000-001 

~37S 

O.OOQOQOC-OQI 

0 

.0000000-001 

37* 

o.ooonoco-ooi 

0 

.0000000-00l 

377 

a.oooooco-oot 

0 

.cooaoco-coi 

Jyi - 

o.ooooooo-ooi 

0 

.ocacoco-aoi 

379 

2***54385*000 

2 

.3932*** 1 -aoa 

380 

1.7472683-000 

1 

.4923203-000 

“ 3*1 

o.oooooca-oot 

0 

.0000000-001 

382 

Q.OOQOQCO-OOl 

0 

•soooooo-oai 

383 

o.ooonooo-ooi 

0 

.ocooocc-cci 

389 

0.0000000-001 

a 

.COOOOOO-OCl 

385 

O.OOQOQCQ-OO l 

0 

.COOOCOO-COl 

38* 

O.OOOOOOO-OOI 

0 

•COQQOOQ-OO1 

387 

0.COO9000-CO 1 

0 

.COOOOOO-OOl 

111. 

o.oooooao-coi 

0 

.0000000-001 

389 

3.2797090-000 

2 

.6971206-000 

390 

1.8785955-000 

1 

.78’4 7391-000 

391 

O.OOOOOOO-OOI 

0 

.CGOOOOC-OOl 

392 

0.0000000-001 

0 

•OOOCOCO-OOl 

393 

0.0009000-001 

0 

.3000000-001 

399 

o.ooooooo-ooi 

0 

.0000000-001 

395 

0.0000090-001 

3 

•caocooo-ooi 

39* 

o.oaaoocQ-oai 

0 

.cooonon -001 

397 

0.0000000-001 

0 

•OOQCOOO-OOt 

398 

Q.OOQOOOO-OOl 

0 

.0000000-001 

399 

9.9992837*000 

3 

.3139290*000 

9Q0 

2.01798*5*000 

1 

•8973028-000 


o^aoococo-oai 
0 . 0000000*001 
0 . 0000000-001 
o.uoooooo-coi 
o.coooaoo-ooi 
o.oooocao-cot 
0. oooocoo-ooi 

3. 159 1*478-000 
l ,3209057-000 
I .5056372-000 

o.oacocoo-ooi 

O.OCCOCOO-OOl 

o.accoooo-oai 

Q.ocaoooa-ooi 

o.oooocoo-ooi 

o.oooocao-aoi 

o.ocooooa-aoi 

•4,3075969*000 
t .9551806-000 
1.5633170-000 
O.OOOOOOC-QOl 

o.occoaoc-ooi 
o.oocaooo-aoi 
o.occcaoo-aoi 
0.0000000-001 
a.coooooo-ooi 
a.cocooco-coi 

5.7888695-000 
2.1299999-000 
1.6301118-000 
0.0000000-00i 
a.ocooaoo-ooi 
a.aaooooo-ooi 
o.ooaoooo-aot 
0 . 0000000-001 
o.oooooco-ooi 
o.ccocooo-cot 
o.ooocooo-oai 
2.3699130-009 
1.7085095-000 
o.cooooco-ooi 
o.ocoooac-coi 
o.oocoooc-aoi 

O.QCOOOOO-OOl 

o.dcoocco-coi 

o.oooccoa-ooi 

o.ooaoaoo-ooi 

o.ooooooo-ooi 

2.7282*415-000 
1.8020*4 77-000 


o.ooocoao-ooi 
o.ooooooo-ooi 
0 , 0000000*001 
o.ooooaao-coi 
o.saoooQO-oai 
o.ooooooo-ooi 
0 . 0000000-00 1 
2•6Q t S 3 92-000 
1 . 7318230-000 
l .**681213-000 

a.acaaaco-oai 
o.ocooooo-ooi 
o.ouooooo-oo i 
o.ooooaac-oa i 
a.oooocao-ooi 
a.oacoooa-ooi 
o.oacoooa-oa l 
3,19*48390*000 
| .0903 12**-000 
l ,5 1 9 1 **32-CQO 
O.OOOOOOO-COI 
o.oaaooco-aoi 
o.ooaoooa-co i 
o.ooooooo-aa i 
o.ooooooa-oa! 
o.ocooooa-aoi 
o.ooooaoo-coi 

*1,8706206-000 
1 .9763321*000 
1 .5775616-000 

o.oQcaaao-ooi 
0 . 0000000-00 1 
o.oooaooo-ao i 
a.ocooaoo-ooi 
a.coocoao-ooi 
o.ocaacco-ooi 
o.ooooooo-ooi 

S .865 I *429*000 
2.1533258-000 
l .095190*4-000 

o.auaoooo-coi 
o.aacooco-oa i 
o.ooooooo-ooi 
o.oocoaaa-oai 
c,ooooooo-oot 
o.ooaacoo-oa t 
o.ooooooo-ooi 
o.oacooao-aoi 

2-396286*4*000 

1 .7 2 * 5391*000 


0 * 0000000-001 
0 . 0000000 - 0 °l 
Q , 0000000*001 
0 . OOOOCOC-OO| 
0 , 0000000-001 
Q,C0Q0C0Q-00l 
0 .QC 0 CC 0 C -001 
2 • 28899 j j *000 
l.6595251*000 
1•935303**000 
0 * 0000000-001 
0 * 0000000 - 00 | 
0*0000003-001 
o.ooacaoc-oQi 
0 * 0000000*001 
0 * 0000000-00 I 
0 .Q 00000 C- 00 t 
2,6337826-000 
1 .79963 1 l-000 
1*9808603*000 
0 * 0000000-001 
Q.OOOOCQC-OO 1 

o.oocoooa-cci 
0 , 0000000-001 
0 . Q0UQCQ3-001 
O.OOCOCCO-OOl 
0*0003000-00 I 
3. 2350190 . oca 
l .8595238*000 
1*S32S930*000 
o.oaococo-ooi 
o.cooooco-ooi 

0 . 0000000-00 I 

a.ocoacao-cot 
o.oococao-aoi 
o.occccoq-oo; 
o.aoocooc-ooi 
9*9328395*000 
1*9972653*000 
1 .5914897*000 
O*00CCOOC-CCt 

a.oocacoa-aci 
o.cocaooc-oa i 
o .accacoc-ao» 
o.aaoapcc-oci 
0 •00UCC0C-QQ1 
a*OQCQOOO-001 
5.9909371-000 
2 . I 769598*000 
1,440l9|2*000 
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ABEL AREA MATRICES—AREA MATRIX 

PACE 9 ROSS 41-15 

♦Of 

0*0000000*001 

0*0000000-001 

0 *0000003-001 

0*0000000*001 

O.OOCCOC3-CCI 

*02 

0*0000000*001 

0 *0000000-001 

o.coaoooo-coi 

o.oococao-oai 

Q .C300033-OC1 

♦0* 

0*0000000-00} 

0*0000000-001 

O.OOCOCOO-OOI 

a.oaoaocc-co! 

0*0005330-33} 

*0* 

0*0000000*00} 

O.OCOOOCO-CO} 

o.ooocooo-aoi 

o.oooaooo-noi 

.0 *0000055-55} 

♦os 

0*0000000-00} 

O.CQOOOOO-OOl 

o.coaoaoo-Goi 

0.0030030-CCl 

0*0000033-53} 

*0* 

0*0000000*00} 

0*0000000-00} 

C.JOOOCJOO-OOI 

o.oaooooo-ooi 

0*0000033-55} 

*07 

0*0000000-00} 

O.COOCOOO-OOI 

0 *0000000-001 

o.oooooao-cot 

0*0903335-00} 

*00 

0*0000000-00} 

Q *0000000-00 | 

0.0000000-001 

o.occcooo-ooi 

0*0000033-331 

*0* 

*•0147888*000 

5*CS*'98 1*»*CC0 

3.3S26S1S.OOQ 

2.7590} 3 *• *000 

2.122375**533 

*10 

2*!*f3«H7*000 

2.0385014*000 

1 ■ 9163*06*000 

I *8 19 1983*000 

| .7404336*330 

*11 

0*0000000*00} 

0.0000000-001 

o.cooocoo-aoi 

o.ooaaaao-aoi 

0.0030000-351 

*12 

0*0000000-001 

0*0000300-001 

o.ooooooo-ooi 

0,0000000-001 

0.0000033-00} 

*13 

0*0000000-00} 

O.COOCOOO-OOI 

O.COOOOOO-OOl 

0.5033003-001 

0 .0000053-03 | 

*1* 

0*0000000-00} 

O.OOOCCOO-OOI 

o.coaooao-oci 

o.oooooac-noi 

0.0000030-05} 

*1* 

0*0000000-00} 

O.OOOOOOO-OCI 

o.ooaoooo-coi 

a.oooocao-cai 

0.0000003*02} 

*10 

0*0000000-001 

O.OOCOOCO-OCI 

o.acaooon-nrjl 

o.ooaaoan-ooi 

0.0050033-05} 

*17 

0*0000000-00} 

o.noooooo-ooi 

3,0000000-001 

o.coacoao-ooi 

0.0030533-33} 

*10 

0*0000000-00} 

0.CQOQOOO-OC1 

o.acscQoo-oot 

a.ocoaooa-aoi 

0.QCCCCCC-53I 

*1* 

0.0000000*00} 

6.0962 3 2S-OCO 

5. 1 119S43-000 

3.3909971-000 

2.7894476-353 

*20 

2.«*a}a*3*.ooo 

2.2220023*000 

2.0588173*000 

1.93*5238*000 

1.636}953*303 

*21 

0. 0000000-00}' 

O.COOCOOG-CCl 

o.occoooo-oat 

o.oaccoao-aoi 

0.303CC03-55} 

*22 

0*0000000-00} 

0.0000000*001 

n.CQQOCOO-OOl 

o.occoaoc-oot 

0.0030033-05} 

*23 

0*0000000-00} 

o.ooooooc-ooi 

o.cacoaao-ooi 

o.oaoooao-oa i 

0.3000033-03} 

.*2* 

0*0000000-00} 

0.0000000-001 

o.cooocoo-aai 

0,0000000-00 1 

0.0030530-03} 

*2* 

0*0000000-00} 

O.OOOOOOC-OOI 

o.oooaoco-ooi 

0,0030000-00 1 

0.0000035-35} 

*20 

0*0000000-001 

0*0000300-00} 

0,0030000-001 

0,0000000-331 

0.0002303*03} 

*27 

0*0000000-00} 

3.0000300-00} 

c.ooocooG-aai 

O.OUOOOOO-OOI 

0.0030025*03} 

*20 

0*0000000-00} 

o.oqoocoo-ooi 

o.sacoooo-oai 

a.oooooaa-ooi 

0.3003030-02] 

*2* 

0*0000000-001 

0.0000300-00} 

6.1*39008*000 

5.17*2922*300 

3.4288855-023 

*30 

2*814*550-000 

2. **737 362*000 

2.2hm**3i5*Q00 

2*0784 382*000 

1*9528373*053 

♦31 

0*0000000-001 

O.OOOOOOO-CC} 

0,0300000-001 

0.0000003-301 

0.0000003*031 

*32 

0*0000000-00} 

O.OOOQCQa-OQ} 

0,0000000-001 

0.0030000-001 

0*0000005-03] 

*33 

0*0000000-00} 

0.0000003-00} 

o.ocooaao-ooi 

a.ocaoooa-aa t 

0*0002003-05! 

*3* 

0*0000000-00} 

3.3000000-00} 

a.ccooQOo-aai 

0,0000000-001 

0.0005035-03] 

*3* 

0*0000000-001 

Q.OQOoCCO-COl 

0,3000000-001 

o.ooocoaa-ooi 

0.0000503-33] 

*30 

0*0000000-001 

0.0000300-001 

0,0000000-001 

0,3000003-001 

0.0003535*53] 

*37. 

0*0000000-001 

0.3000000—301 

0,0000003-001 

O.OOCOOC3-C01 

0.0000030*521 

*30 

0*0000000-001 

o.oooaooo-oci 

o.aoaooeo-oai 

0,0000000-301 

0.0002030*05] 

*3* 

0*0000000-001 

0•oqcqocq-co1 

0,0000030-001 

6,2325292-300 

5.2328539-332 

**0 

3*4**3604*000 

2.A*|43«I54-0C0 

2,46902 M 2 *000 

2,2664977*000 

2.0488701*035 

**I 

0*0000000-001 

a.OOOOOOO-OOl 

3,0000000-001 

a.aoaaaoo-oai 

3.0000000-03] 

**2 

0*0000000-001 

o.ooocoao-oci 

0,3000000-001 

0,0000000-301 

0*0000CO0-03] 

**3 

0*0000000-001 

Q.COOQOOO-aOl 

o.coaoooo-cot 

0.0030000-001 

O.OOOCOCC-531 

*** 

0*0000000-00! 

0.0003000-001 

0,0000000-001 

0,3000000-001 

O.OCOCCC3-03} 

MS 

0*0000000-001 

o.cccaoco-ooi 

o.cooooco-cai 

o.ooaaooo-ooi 

0.0000002-05] 

**0 

0*0000000-001 

O.OQOOCOO-OOI 

3,0000000-001 

9,0000000-00} 

0.0000020*00} 

**7 

0*0000000-00} 

0.0000000-001 

0.3000000-001 

o.coacooo-ool 

0.0000002*03} 

**o 

0*0000000-001 

0.0000000-30} 

o.cacoooo-aoi 

0.0000009-301 

o .cocacac-o 2 ] 

M* 

0*0000000-001 

0.0000303-00} 

o,ocaoooo-ooi 

a.ooocooc-ooi 

6.30343}5-030 

♦SO 

s* 2 *oai*s*ooo 

3.503h3S7*000 

2*8768299*000 

2,52404096000 

2.288648}*032 


u i« u ii ill# ii ii ii u ii (i ii nu n n u it n ii 
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ABEL AREA MATRICES—AREA MATRIX 


PACE 10 ROWS 46-50 


91ft 

0*0000000-001 

4S1 

0.0000000-001 

ns 

0*0000000-001 

9*4 

o.ooooaoo-oot 

ns 

o.ooooaoo-oai 

n« 

0.0000000-001 

~ 4*7 

0*0000000-001 

ni 

o.ooooaoa-aoi 

m 

0*0000000-001 

91*0 

**3735*44*000 

9*1 

0.0000000-001 

ni 

0*0030000-001 

9*3 

0.0000000-001 

9*9 

0.0003000-001 

ns 

O.OOOOOOO-OOl 

9** 

0.0000000-001 

9*7 

o.ooocnoo-oai 

9** 

o.ooooooa-ooi 

‘ ~ 9*9 

0.0000000-001 

970 

0.0000000-001 

971 

0.0000000-001 

971 

o.ooooooa-ooi 

973 

o.QOoaoco-ooi 

979 

0*0000003-001 

97* 

0*0000000-001 

97* 

0*0000000-001 

977 

o.ocooooo-ooi 

97* 

0.0000000-001 

979 

0.0000000-001 

9*0 

o.ooooooo-oai 

9*1 * 

o.ooooooa-ooi 

9*2 

o.ooooooc-coi 

9*3 

0*0000000-00! 

9*9 

o.ooooooo-aoi 

90S 

0*0000000-001 

9*« 

0*0000000-001 

**7 

o.ooooooa-ooi 

9*1* 

O.OOQOOOQ-OOl 

9*9 

O.OOOOOOO-OOl 

990 

o.ooooooo-aoi 

991 

O.OOOOOOO-OOl 

992 

O.OOOOOCO-OCI 

-993 

O.OOOOOOO-OOl 

999 

O.OOOOOOO-OOl 

99* 

0.0000000-001 

99* 

O.OOOOOOO-OOl 

997 

0.0000000-001 

99* 

0.0000000-001 

999 

o.ooonooo-aoi 

*00 

0.0000000-001 


0 . 0000000-001 
0 . 0000000-001 

а. ooooooo-ooi 
0 * 0000000-001 
o.oooooao-oo t 
0 * 0000000-001 
o.cooaooo-ooi 
0 * 0000000-00 l 
O.OOOOOOO-OOl 
S* 3 * 8 l 512*000 
o.oooonoo-coi 
O.OOOOOGO-GOl 
O.OOOOOOO-OOl 
O.OOOOOOO-COl 
O.OOOOOOO-OOl 
0*0000030-001 
o.oooaooa-ooi 
0 * 0000000-00 I 
O.COOOGOO-OOI 

б. «4*2405*<-oao 
0 . 0000000-001 
Q * 0000000-00 I 
0 * 0000000-001 
o.cooooco-oct 
q.oqoooco-oo i 
0.0000000-001 
O.COOO n OO-OOl 
O.OOOOOOO-OOl 
0,0000000-001 
0*3000000-001 
0.0000000-001 
o.oaooooo-noi 

O.COOOCQQ-OO1 

o.ooooaoo-aci 
o. cooqoco-oo 1 
o.ocaoaoo-oci 

0.0300300-001 
0 * 0000000-001 
O.CCOCCOO-OOl 
0 . 0000000-00 I 

o.Gcoooca-ooi 
0 . 0000000-001 
Q.OCOoOCO-OOl 
O.QOaOOQO-OO t 
0 . 0000000-001 
Q. 0000000-001 
0 . 0000000-00 I 

o.oooooao-aoi 

o.nooocoo-ooi 

O.OOOOCOO-OOl 


0.0000000-001 
O.OOOOOOO-QO1 
0.0000000-00 l 
o.oaoooao-ao I 

3.0000000-00 1 
o.ooooooo-aol 
o .opocooa-oo i 
o ,oococoo-oo1 

0.0000000-00l 
3 , S **Q 1 ? 3 2*000 
3,0000000-001 
C.0000000-00! 

o.ooooooo-ooI 
0,0000000-001 
o.ooooooo-aoi 
a.ccoaooo-oci 
0,0000000-001 
o.ooaocca-oci 

O.OOOOCOO-OOl 
5 ,'40*8 780*300 
0,0000000-001 
o.onooaoo-ooi 

а. oonoaoo-coi 
0,0000000-00 I 

0,0003000-00i 

o.coooooo-aoi 

o.acaoaao-aoi 

0,0300000-001 

o.ooooooo-ao1 

б. 5115221-000 
0.0000000-001 
0.0000000-00 I 
o.ooooqco- 00i 
o.oocooac-oot 
o.oooooao-oo i 
o.ocaoooo-oo l 
0.0000000-00 1 
o,cooocao-oo i 
0,0000000-001 
0 . OOQOCOO-OO I 

a.coooaoo-aot 
0.0000000-001 
0,0000000-031 
o.oaooooa-ooi 

0.0000300-00 1 
a.QOcoooo-ooi 
0.0300000-001 
0.0000000-001 
0,UQCOQOO-OO1 
O.OOOOOOO-OO! 


Q*OOOQOQQ-aO! 

o.ouaooon-oo i 
0,0000000-00! 
0 ,au 0000'’-001 
o.oooooao-ooi 
0,0000000-00 ! 
0,3300000-00l 

o.occaooo-ooi 
0,0303000-00 I 

2,foaai62*ooa 

0.0300000-00 1 
a.OOOOOQC-QO1 
0,0000000-00 1 
0.0000000-00 I 
o.ocaaaaa-ool 
a.aoooaco-aci 
o.oooooan-ooi 

0,0000033-001 

a.oaaoaao-oo t 

3.576*351*000 

c.ooaooac-ooi 

o. acaoooo-oo t 

p. aoaooao-coi 
o.cooccoo-coi 

а. ooaocao-oo! 
o.ooaoooo-ooi 
3.0030000-001 
o.aoooooo-coi 
o.aooQoco-oot 

S,*♦•10157-000 

o.ooaooop-aoi 

0,3000000-001 
0 . OOQQCQO-QQ1 
0 . CQQQQOO-OO1 

o.oooooao-aoi 
0.0000000-001 
o.ooooooo-aot 
0,000000^-001 
o.ooooooa-pot 

б , 57^*233*000 

o.cocooco-oo 1 
a.ocooooo-oai 
o.acooooo-ooi 
0.0000000-001 
0,OOOOQOO-OQ 1 

a.oooaoao-aoi 
o.ooooooa-oot 
0.0000000-001 
O.OQQOOOO-OOl 
0,0000000-00 1 


0*0000000-001 
0*0000003*001 
0.0000003*00 I 
O.OQOCQQC-001 

o.ooooooa-ooi 

0,0030000-00 1 
0.0000033-0° 1 

0*0000033-001 

0,000303 3-OP 1 
2.5*18853 7*003 
0 * 00 00 00*3-GO 1 

a.oaoocoo-cct 

o.cooooco-ooi 

O.OCUOC03-00! 

Q.QOGOOOO-COl 

a.oooococ-cci 

o.ooooooc-ooi 

0 . 0000000-001 

O.OOOOCCC-031 

2.9369138*003 

a.oaoocQo-ooi 
a.0000003-001 
0*0000303-001 
Q.C0QQCCC-0U1 
O.OOCOOOC-OOl 
0*0000000-001 
o.aaocooc-oOi 
0*0000003-301 
0*0000000-331 
3.4123827*000 
0.0000300-001 
3*0300003-00 I 
0*0000000-30 I 
0*0003000-001 
0*0000003-00 I 
Q * 0000 00 3-00 1 
0*0000003-00 I 
0*0000030-031 
O.OOOQOOC-COl 
5*5 1 *5 8 2 *4-000 
o. oouccoa-oot 
o.ooccocc-ooi 
Q.aooocoo-ooi 
0,0000000-001 
a.ouoococ-coi 
3*0000003-001 
0*0000000-001 
o.ooaoooo-coi 
0*0000000-001 
4*4<4663Q8*C0Q 
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ABEL A3SA XATSICES—ir<VE3SE MATRIX 


1 U2?)2)«S«OOQ 

2 -2*9*78093-002 
1 -S*7j99487-003 

4 -2*.*l9a4S3-003 

5 -US145434-003 
.4 -9.7889950-004 

7 -*.8128293-00* 
' • -S.0SUiO4-CO4 
7 -3.8809979-004 
to -3.07193H-PG1 
II O.OOQOQCO-OOI 
|2 -S.9025OO8-CG3 
|J -S.99H8I3-CC3 
|9 -2.6825925-003 
|S -t.S2S5934-003 
|* -9.83S094Q-0C* 
I? •A.USSlOS-OO* 
|0 -§.063*017-00* 
l* —3.88823*3-004 

20 -3.07917S8-004 

21 O.OOOCCOO-OOl 

22 •7.2<Sa«7)-00Z 
22 -4.120*033-003 
28 •2.2S23CS5-C03 
2* •l«Sl?7Sl4-003 
24 -9.9269SS*-C0 i 
27 •4 4 8ia037«-CG'» 
21 •S*Q«74434 -qq*» 

27 -J.902SS10-004 

30 -3.0««*S28-C04 

31 0*0000000-001 

32 7*34|2874—002 

33 •7*2445423—003 
38 —2*4570484—003 
35 -1.3418583-003 

34 •1.0047184-003 
37 •4.8774733-001 
30.-5.1288281-004 

28 *3.8281511-008 
*80 •3.1018784-001 

4t o.ooaoooc-ooi 

82 •8.1313008-CQ1 

83 •4.4248817-003 
88 -3.0218383-003 
85 -1.4285113-003 

84 *1.0258247-003 

87 -7.0700150-001 
80 -3.1780773-001 

88 -3.8532875-00- 
SO -3.1201847-001 


-1.1480218*000 
-1.224Q318-CC2 
-1.4211225-CC3 
-2.3374205-003 
-1.3748554-003 
-8.0412275-001 
-4.1152177-03- 
-l.77i|757-C0- 
-3.4842252-C01 
—2.8- -1 <744-00- 

4.H04718-C0I 
-2.1753615-002 
- 1 . 8031743-003 
-2.3411331-003 
— 1 . 3440414-003 

— 8.IC 3 7-8 6 — 00- 
-4.1350414-00- 

— .78*1147-00- 
-3.7027«87-CCi 
-2.81427C2—3Ci 

o.oooocca-oci 
- 1 . 4424627-003 
-5.2043347-003 
-2.i t 72732-003 

• 1 . 1013687-003 

-8.182-245-00- 
- 4 . 17 - 311 I-QC- 
-1.8108758-00- 
-3.7157712-00- 
-2.9S8-871-0Q. 

o.ooococo-cot 
-8.2002313-002 
-5.1115*35-003 
-2.5aiac8«-0C3 
-1.1321*77-003 
-8.3023688-00- 
-4.5334103-C0- 
-1.8-37173-00- 
-3.73S35t1-COl 
-2.8888442-00- 

0.0000030-001 

4.6087311-002 
-4.5142-03-003 
-2.618-501-003 
-1.171-834-003 
—8.-443171—HQ- 
-4.4118513-03- 
—1.8480644—OCi 
-3.7417124-00- 
-2.8455350-001 


1.7050417- 
-1.2206130- 
-4.0681575- 
-2.0782017- 
-1.2572978- 
-8*1|70642- 
-4.0264160- 
-h.5267%37- 
-3.52-3-05- 
-2.421*511- 
-7.08565 1 C- 
-1,0131980- 
-1.1592971- 
-2.0989953- 
-1.2619078- 
-4.1511106- 
-6.0-10710— 
-1,5366000- 
-3.G3Q3Q7S- 
-2.4252781- 
6.1569571- 
-1.7831591- 
-1.3027461- 
-2.1111181- 
- 1.2401 227- 
-4,5189232- 
-6.078703*- 
-4.S5609S5- 
•3 • & * 2 I 0 7 7- 
-2.4328332- 
9.67 36 l 74- 
-3.9897743- 
-1.6335461- 
-2.2C6S955- 

-1.3034827- 
-4.4221l*2- 
-4. 13 1 1 738- 
-4.5855167- 
-3.S594981- 
-2.3H20»9- 
0. JOOOOOO-' 
-5.50133*3-1 
-1.8755284- 
-2.3000885-' 
-I .3357327-1 
-4,7629 1 79-1 
-6.2022808-1 
-*.6252908-1 
-3.5438395-1 
-2.8S948i9-( 


-1.3705760-001 
-4.5121452-003 
-3.1*26998-003 
-1,359634*.003 
-1.1525455-003 

-7.8364187-qOi 

-5.6722161-004 

--.2816651-004 

-3.3611723-004 

-2.7363100-304 

1.0406841-001 

-8.7666298-003 

-3,5-95054-003 

-1.8763174-003 

-1.1549741-003 

-7.3443525-004 

-5.6476799-021 

-1.3035240-034 

-3.3696091-cCl 

-2.7398278-004 

-5.S217S99.C01 

- 8 . 5516519-003 

-3.67719C5-003 

-l.»C9«478-003 

-1.1717442-003 

-7.92S062S-004 

-5.7143406-004 

-1.3210698-004 

-3.3803544-001 

-2.7167777-004 

S.Sl44484-0Qt 

-1.5445017-002 

-3.452*330-003 

-1.1621254-003 

-1.1913051-003 

-4.0143421-00* 

-5.7447647-001 

-4.3i7557*-004 
-3.3965602-001 
-2.7272388-001 
O.C3GCOOO-C01 
-3.3483466-003 
- 4 ,1910667-003 
-2.0352535-003 
-1.2182303-303 
-4.1359530-001 
-5.4274152-001 
-4.3832788-001 
•3.4183530-001 
-2.7112413-004 


1.2945059- 
7.1*33272- 
3.0241345- 
1.4738314- 
| .0401291- 
7.31*5*4-- 
5.3181817* 
1*0799797- 
3.2146795- 
2.5880729- 
9.0439 1 a.9 — 
7.1020370- 
3.07 l 75«i- 
I .4473307- 
1.0658*02- 
7.3402*10- 
5.3419282- 
4.0879775- 
3*2194*37- 
2.4013119- 
8.1303094- 
8.2864427- 
3.1598032- 
1.71*870-- 
1 .07*6329-1 
7.3913983- 
5.3891702- 
4 . 1C38015-I 
3.2294570-' 
2.4077190-1 
4.4795740-' 
7.4437442-' 
3.3102*75-' 
1 • 7S**5C3-i 
l .0931369-' 
7.4690352-' 
5.4303983-' 
4.1276925-1 
3.2442*31-' 
2*61 73565-' 
4.8928332-' 
1.374200*-' 
3.50231 77-1 
1.8152183-' 

1 • 1 157950-( 
7. 5746309-' 
S.484I 60S-( 
4. 1598833-1 
3.2611234-t 
.63029 2 3 •< 


~£ r 3 ft 


3 * 0 ^ 7 .3 


L P. Z 



PAGE 2 30rs 6-10 


ABEL AREA MATRICES—INVERSE MATRIX 

Si ’o.ooooooo-ooi 0 . 0000000-001 0 . 0000000-001 0 . 0000000-001 

%2 8.44J9C84-001 -3.7291 213-OCl *,0*9 1203-002 •**• 972’**^*-002 

5 3 *1.2472422-002 -*.?aS5S24-00J - 5 . * 388 5 « “-00 3 -4.4SS39O-C03 
14 •). 22207 47-003 -2.7880*15-003 -2.42342*8-003 -2, I 3“0« l 9-003 
SS -I.442**43l-0Q3 - l .52271 43-003 - 1.3 7 74550-003 - 1 .25332*4-003 

54 *1,0508075-003 -4.4 7 808 22-00*4 -« . 4m 4 34 1 2-QG* -8.29231*4-004 
§T *7,18805 U-C0*4 -*« 7 | 74$8 2-00*# -4.293097*-00* -5.4077824-004 
Sf *5,2372403-00*4 — 4.94«**»551«0C4 -4 . * 75 77 3a-00 *» -4 . **2 84 i 4 l -CO*» 
ft *2,9901 141-00*4 -3*7450<42-3Cm -3 • 4 | •* I 342-034 -3.4^5’ 1 77-00** 
*0 *2.1431 121-00*4 -3.0045584.Q04 -2.878 770*4-00*4 -2,7S40078-004 

41 o,ooooooo-oot o.CQOcoco-aoi o.ooooooa-ooi a.aoooooo-co! 

42 0,0000000-001 4.0978827-001 -3.4407451*001 5,44*4440-002 

43 *2,5127213*003 -1.1 484285-002 -5.5 i 34 244-00 3 -S.479373*-OQ3 

44 *3,5442805-003 -2,4424424-003 -2.5452270-003 -2.2*122*1-003 

45 *1,7732584-003 -1.5883132-003 -1.4315448-003 -t.2977294-003 
44 *1,0820130-003 -4.4427744-004 -4.1704283-004 -8.4644419-004 
47 *7,3340733-004 -*.8455080-004 -4,40502*4-004 -*,00*42**-c04 
44 *5.31478*3-004 -5.01355*0-004 -4.7375700-004 -4,4840509-004 
49 -9.0351229-004 -3*4358389-004 -3.*510*25-004 -3.479-343-Q04 

70 *3,1710394-004 -3*0321 124-004 -2.4q2I 983-QC4 -2.780*272-004 

71 O.OOOOOCO-OOl 0*0000000-001 O.QCOOOOO-COl O.OGCOaCO-QCl 

72 O.OOOOOCO-OOl 0.0000030-001 3.8224917-001 -3.2040439-001 

73 -9,2901703-002 -2.2317024-003 - 1■U*88 3 -00 2 -5,114 7190-003 

79 *3,8395931-003 -3*3302196-003 -2.8CC42C4-003 -2.4331748-033 
75*-1.876*740-003 *1*4707493-003 -1.4487924-003 -1.3529055-003 

74 *|,l209|17-003 -1.0247159-003 .44*4533-C04 -8.7231127-004 

77 *7.*107704-004 -*.9994341-004 -4.5398543-004 -4.1250l9--C04 
*?• *-5.407*733-004 -5.09*2256-00. -4,3 1 1 3996-004 -4.550199 7-004 
79 *9.0(87030-004 -3.89.2321-00- -3.6949382-004 -3.5193371-CC4 
«0 *2,2041457-004 -3.C42J842-C04 -2.9299334-004 -2.8059875-004 

"it o.ooooooo-ooi o.cccaoao-oci o.ooooaoo-cot o.oaoonao-ooi 
82 0 , 0000000-001 o.caocaca-noi c.oaoooco-ooi 3 , 59 * 0743-001 

•1 5,0170*59-002 -4.03352*9-002 -2.0074583-003 -1.0031219-002 

«9 *9.7909121-003 -3*4059224-003 -3,132*622-003 -2.4377916-003 
•S *2,0056020-003 -1*7747291-003 -1.5820248-003 -1.4209789-003 
•4 *1.1471587-003 - 1 .06S9*75-aC3 -9,7742529-004 -9,00708S7-q04 
*'•7 *7,721 S500-004 -7. 1826401-004 -6.69 98229-00 4 -6.2*5 3999-004 
(8 *5,5171835-004 -5.I 935138-00h -4.898 1494-004 -4,6278095-004 
-9.1514020-004 -3.9408306-004 -3./••*l462-004 - 3.5*582l*-324 

90 *2.2424913-004 -3.097*006-004 -2.9* 2l 7*8-CC* -2.83SS*32-30* 

ti 0 , 0000000-001 o.oQcocoa-oni o.oooccoc-ooi o.ooaoooo-ooi 
97 o.ocaoooo-ooi o.ooconoa-ooi o.acooooc-ooi o,ooccooo-ooi 

91 *2,8978238-001 4.7733379-002 -3.81773*0-002 -1.325*498-003 

99 *9,50S299*-Q03 -4.52S1391-003 - 3•4q** 974-003 -2.9*3*518-003 
95 *2,1754134-003 -1•’C3l937-003 •I.615’|14-003 -1.50**301-003 
94 *1,7217333*003 -1,11327*2-003 -1.0177597-003 -9,3*5*2*0-00* 
97 *7,9707053-00* -7.39842t1 -OOh -4.8877221-004 .*.4248443-204 
99 *5,4448*48-004 -5,30*72*4-004 -4.9988989-004 -4.7177895-004 
99 *9,2238743-004 -h.00*1*3*-OCh -3.8052259-004 -3,4143502-004 

100 *3,18*9(42-004 -3,1380314-004 -2.9941580-004 -2.844*410-004 


0,0000000-001 
-2,8733927-003 
-3,8*44897-003 
-1,(931223-003 
• | •I*52324-003 
•7,7101382-004 
-5,5572017-004 
-4,2007183-004 
-3,28925*1-004 
-2,4*6*091-004 

0,0000000-00l 
-4,4022846-002 
-4,1 1 797,6-003 
-1.9944895-003 
-1*1822958-003 

-7.8781399-004 

-5,4***873-004 

-4.2S05972-00* 

-3,319840^.004 
—2,4*64111-00* 

a.oosoooo-coi 

5,3033000-002 
-5.10*0252-003 
-2* 1236143-COj 
•1.2281324-003 
-8.0819723-00* 
-S.749238C-C04 
-4.3100*52-004 
•3.3561235-00* 
-2,4898261-004 

o.ooaococ-aai 
-3.0102493-001 
-4.7341595-003 
-2*2949019-003 
-1.2842256-003 
-3.32589 i*-00* 
-5.8729723-004 
-4.3796983-004 
-3,3984045-OCh 

-2.7170074-064 

g.ocoGCoc-oot 

3,405*520-001 
-9.4775*59-003 
-2.497*8*2-002 
-1.3526790-002 
-3.6152906-004 
-6,01 75* | t-004 
-4.4*02259-004 
-2,**704 0 6-004 
•2,74(1275-004 
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ABEL AREA MATRICES—IT/ERSE MATRIX 


**" iot o.oooeooo-coi 0.0000005-001 

102 0*0000000-001 0.CC0a"53-CCl 

103 J.2125933-001 -2.70*12*2-001 
101 -*,0033501-003 -1.2**5057-203 
SOS -2,3757241-003 -2.371C252-C03 
10* •l«2f221 *• 1-003 -l*I7532C‘*-9CJ 

" |07 •#*243*30**-0b** -7**5 I i 2H-30* 
101 -*«7f24051-COi -S*-37-Cl3-50i 
|07 •<* # 304»C2«-00'» -9." , 8C8975-CC9 
||0 -3,33731*8-001 -3.1839749-CC- 
lit 0*0000000-00! a.COCOCCO-CO! 

112 o*ooooooo-ooi a.oocccoa-ooi 
“ 113 a*ooooono-ooi o.ioon**-^! 

||9 -1,5181331-003 -8.51!*534-003 
||5 —2*1HO711-003 -2.2*8i®CS-003 
’ “ ||* -1,375032*-0Q3 -1*2382101-003 
It? -1,*071341-001 -7.«i*l371-CO* 
111 -S,1427040-00*. -5*5871***—C01 
|1* -1,1011203-001 -1* l*582-9-0Ci 
120 -3*3H3527-C0i -3*235a*iS-C0* 

_ 121 0*0000000-001 3.0020003-201 

122 0*0000000-00! 0.0000200-001 

123 0.0000000-001 0.00030C3-CG1 

|27 —3*33170 H 8-CC2 -1 *i-C«aS2-CC3 
|2S -2.7515271-003 -2.57*271«-0C3 
12* -1.1745275-003 - 1.320*5*7-C03 
127 -7,0018174-001 -8.2702030-501 

.|2l -4.1521447-001 -5.75*!11l-*3i 

12* —1,5085 353-C01 -1. 24 1 8 82'J-OOi 
|30 -3.1583544-001 -3.2 HC j 75-50i 

I3t 0*0000000-001 o^ccccooo-aai 

132 0*0000000-001 c.cocccca-cn1 

133 0*0000000-001 O.-'CCOCCC-OCt 

131 1,0448115-002 -3.20*5583-302 

135 -3*7454331-003 -2.“23**74-CC3 
13* -|*S77423*-CC3 -1.-237153-503 

-| J7 -7,1*27422-001 -S.*118235-5Ci 

|3< -**31lit00-001 -S.’Sai^Ci-OOi 
|J1 -1,4215451-031 -1.375:713-301 

- 170 -3.5211115-001 -3.357:138-031 

111 0,0003000-001 0.0005333-001 

lit Q«00QQQ0 q-0Q1 0.3CC33CC-001 

l«i3 0 *000000 Q-001 O.CCCCOC3-nni 
114 -2.3040224-001 3. , 3i5-58-C02 

|1S -3.5737181-003 -3.*2*0203-503 
|i* -1,7574142-003 -|.5*2l«14-CC3 
117 -1,0037111-003 -1.1*17133-301 
|ll -*,4311370-001 -4.17H232-5C1 
117 -1.7*40773-001 -1.*720271-OCi 
150 -3**0*7i78-00i -3.1314230 -CCi 


O.OOOOCOO-OOl 

0.0000030-001 

1 .54.113*-C02 • 

-1.21412*"*-033 < 
-1.813*122-333 - 
-l.3*S21«a-C33 - 
-7,IC70101iC0i • 
-5.111*534-231 - 
-3.872*882-5Qi 1 
-3.3111*08-031 ■ 
C.3000033—001 
Q.3GCCOCC-C01 
-2.5888147-00l 
-1.3511Q1S—333 
-1.7787412-033 
-1.1217837-033 
-7.3.11817-C31 
-5.2.78873-301 
-3.7il228?-0Gi 
-3.3985371-OCi 
0.33CC0C0-C51 
3.3CCG30C-5CI 
2.97*3237-301 
-9.2ICC732-033 
-2.1733731-033 
-1.1998171-033 
-7,6579717-031 
-5.3995941—00 1 
- 1 . 3354 * 25-001 
-3.lH57i«-G0i 

o.aooococ-coi 

3.C03G0CC-C01 

c.caacaoc-cci 
-1 . 3i737*7-203 
-2.1727*71-003 
-1.271217S-CC3 
-8,0Ol47C*-CSi 
-5.5723485-031 
- 1 .13287C1-OC1 
-3.2G08CC3-OQ1 
3.3030030-001 

a.ucocaca-oct 

0.0300000-301 
-3.0711803-002 
-2.7274245-503 
-1.3733511-003 
-8.9511771-001 
-5.7*89721-001 
-i.2i20l81-CCi 
-3.2444707-001 
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o.oaooaoo-ooi 

o.ooooooo-oot 

•3.4330121-002 
-3,2315811-003 
-1.4077824-003 
-7.71*8452-001 
•4.4211587-GOi 
- 1 . 8212398-001 

- 3 , 4809190-001 
-2.907*238-009 
3,0000000-00 1 

o.ooooooa-aoi 

1.3779594-002 

-9,0770871-003 

-1.733*795-003 

-1.02227*5-003 

-4.8927777-00“ 

-9,7319400-009 

-3,7195113-009 

-2.1512397-009 

o.ooooooa-aoi 

o,gqooogo-ooi 

-2.9833725-001 
-3.8778900-003 
-1.8770897-003 
-1,0787982-003 
-7,0710375-009 
-5.07909l1-009 
-3.8275421-009 
-2.7777220-009 

o.aooaaoc-oai 

o.aooaoQO-ooi 

2.84S9359-C0t 
-7.9019371-003 
-2.0883527-003 
- I . 1940107-003 
-7.39514J2-G09 
-5.22*8**2-009 
-3.7151253-009 
-3.0537454-009 

o.oooooao-ooi 
o.oooooco-ooi 
a.ooooooo-oot 

-1,2479704-003 

-2.381S824-003 

-1,2244311-003 

-7.7377993-009 

-5.9002181-009 

-9,0132110-009 

-3.1138095-009 


a.ooaoooa-oot 

O.OOOOOQO-OOl 

- 1 . 4797051-003 

-2*8147058-003 
-1.936751 1-CU3 
-8.1570116-aCi 
-4.1852782-009 
•9.5528519-009 
-3*502*559-009 
-2.783*287-009 

a.couoaac-aoi 

C.0003000-301 
-3.9724*07-002 
-3.0892097-003 
-1.5389731-003 

-9.3S77S34-C09 
-*.378972 t-009 
-9.458330J-COi 
•3.5*5 1953 -QO* 
-2.8231297-009 
a.OQCOQQC-OOl 

o.oooococ-aoi 
9 .21397*3-002 
-3.921571,-003 

• l .4*31701-003 
-1.8397213-009 
-4.4020842-009 

• •..77822*3-009 
-3.435*755-009 
-2.847S2*a-009 

O.COOOQOO-QOl 

o.ooaccoc-ooi 

- 2 .3897773-001 
-3.7171990-003 
•1.8237973-003 
•1.0314012-003 
-4.8588187-009 
-9,1131723-009 
-3.71978/2-009 
-2.91*75iS-OQi 
3.3000000-001 

o.ccoococ-ooi 

2.7*4iH*t-O0i 

-7.4224921-003 
-2*0118375-003 
-1.1043190-003 

-7.159*274-009 
- 5 . 0479119-009 
-3*8032177-009 
-2*1717853-009 
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Asra area iwthices—isvsssb xatrix pace a sops u-po 


|f| 0.0003000-001 o.ooooooo-ooi 

IS2 O.OOOOOOO-OOJ a.0000000-001 
is) o.ooooooo-ooi a.nopoooo-coi 

If* *,47*8880-001 -2.2304972-001 
Iff •*.3442344-003 -3.444S6O6-0C1 

. |f* —I.*425573-003 -1.4976)95-003 

”|f* •1.0700427-00) -9.714)377-004 
Iff •4.4))0)20—00** -6.4)54740-004 
|f* •*.♦! t«i2**-00*» -*.42«4*» *-0C* 
|«0 -J.*990l**-0C4 -3.5 l 2222S-00-* 
1*1 0.0009000-001 0.0000003-001 

_1*2 0.0000000-001 0.0000000-001 

1 * 2 ' o.ooooooo-ooi o.oooorfoo-ooi 
l** o.ooaoooo-oot 2.5455019-001 

|*f —1*1347551-003 -7.1298910-003 
* ' 14* •2.2291959-003 - 1 .* 7*485 3-003 

1*7 •1.1437)87-003 -1.0347*67-003 
14* •7.2729568-004 7236677-004 

|4* .f.0434010-004 -4.7829235-004 
170 -J.74ai)SS-fl04 -3.6017419-004 
_ _171 O.OOOOCOO-OOt a. p 0C00C3-0Cl 

172 o.ooaoooo—)oi o.ooDocoa-aci 
172 o.ooooooo-ooi o.oooocco-gg l 
11* O.00300QQ-001 O.OOOOOOO-COl 
17% —l.*I 75908-002 -1.0794047-003 
17* -2.9**2640-003 -2.1557021-00) 
177 —1.2439*03-003 -1.11450*3-003 
~|7» -7.6*)542*-0dH -7.06S3341-C04 
| 7* -5.2*91500-004 -4.456Q443-0C4 
180 -3.90«a*«S-C04 •3.701Q924-CC4 
|*1 0.0000000-001 O.OOOOOOC-CCl 

102 o.oaoooco-ooi o.oooorco-oat 

|«2 0.0000000-001 O.OOOOOCO-OOl 

-II* o.ooooooo-ooi o.ocoooao-aoi 

Its 3.5112672-002 -2.7405««a-002 

104 -3. 1**I«49-0C3 -2.3937002-003 
|07 ”•1.3585008-003 -1.2034)25-003 
|00 -0.1179451-004 -7.4535*93-004 
|§9 -5.5104547-004 -5.151029*-CC» 

-|90 —9.03 10*07-004 -3.3113*23-004 

|7| O.OOOOOOO-COl O.OOOOC^a-COl 
|72 O.OOOOCOO-OOl O-OOOOOCO-CO1 

- 172 o.aoooooo-oat o.cocanoc-ooi 

|7* o.ooooooo-ooI o.ooooocc- n oi 
195 •1.9*3*780-001 3.4252570-002 

- ~|7* -2.03*07704003 -3*0982475-003 

|77 •1.5042354-00) —1.321312S-003 
170 —0.44*2737-004 -7.9035276-004 
' |77 -5.7*129*9-004 -5.37UC42-C04 

2Q0 -4.1*7*447-004 -3.933*252-004 


o.ooooooo-ooi 

o.ooacooo-goi 

o.ooooaoa-ooi 

3,3144*34-002 

0.5000935-003 

•1.4*00347-003 

.8.8*819*7-004 

.5,4927739-004 

.4.3*43943-004 

•3.33*8329-004 

o.oaooQOC-ooi 
0,0000000-001 
o.acooooo-ooi 

.2.1*193*3-001 

•3.3282*86-003 

•1.4429590-003 

.9.4153773-004 

•6.2478846-004 

.-•,5015478-004 

.3.420*075-004 

o.ccoocca-ooi 

O.CCCCJ00-001 

c.coocooo-oai 
2.5211146-COt 
.*.*161471-003 
-1.3217826-003 
-l ,C06t71“-00J 
-*.53*33*9-004 
-4.6553208-004 
-3.5107053-004 

a.ocoocoa-oot 

0.3000000-001 

o.cnaaaco-coi 

2.uO3OC0a-0O1 
-1.0298637-003 
-2.0923203-003 
-1.382*101-003 
-6.37356*1-004 
-4.327*136-C34 
-3.4101470-004 

o.aooocae-ooi 
o.ococono-ca i 

0.3000000-00 i 

o.ocooaao-oai 

-2.6*94837-002 

-2.32*8733-003 

-1.1755559-003 

-7.25630*3-004 

-5.021*6*9-004 

-3.7203C82-0Q4 


o.ooooooo-ooi 
o.aoooaoo-oot 
o.oooooao-ooi 
-2.*9334*5-002 
-2.6321090-003 
-1,3244581-003 
-8.1352242-004 
-5.5963370-004 
-4,122*462-004 

-3.1803455-004 

o.ouaaoao-oai 
0 . QOOGQGO-OO1 
0,0000000-001 
3.7048060-Q02 
-3.3858798-003 
-1 .4424Q88-C03 
-8.59809*9-004 
-5,3200570-004 
•4,2456072-004 
-3.,253*744-004 

o.caacoco-ooi 

o.ooacooa-oot 

a.oaaooao-ooi 

-2.0993316-001 
-3.2221942-003 
-l .5928708-003 
-9.1398060-004 
-6,073*513-004 
-4,3827400-004 
-3.33536*0-004 

a.oaacoao-ooi 

o.ooaoooo-oot 

o.acooooo-ooi 

2.452777 3-00 t 
-6.7201*21-003 
-1,7687571-003 
-9,7787203-004 
-6.3635273-004 
-4.5361706-004 
-3.4253157-004 

O.OOOOOOO-OOI 
O.OCOOCOO-OOl 
0 . 0000000-001 
0,0000000-001 
-9.8528)75-004 
-2.0348492-003 
-1.053*427-003 
-*,6950105-004 
-4,708078**004 

-3,5247289-004 


a.ooooooo-ooi 

a.OQOQOOO-OOl 

0.0000000*031 

-1.1**9*52-003 

-2.29914*7-003 

-1.1859*89-003 

-7.4954593-004 

-5-2410454-004 

-3.9019284-004 

-3.0324*76-004 

a.aoaoooc-ooi 

a.oooococ-ooi 

a.oooocoo-ooi 

-2.9014978-002 
-2.5453*79-003 
•l.2824*55-003 
-7.8*00*53-004 
-5.4)7)568-004 
-4.0120109-004 
•3.0995047-004 
O.OOOOOOO-COl 
Q.ooaccoa-oci 
a.aoaoooo-ooi 

3.6Q412 3 4-CC2 
-3.281*915-003 
-|.3*87285-00) 
-8.3488374-004 
-5.6S972S3-004 
-4*1347589-004 
-3.1734803-004 

o.oouooco-aoi 
o.ooooooc-cai 
o.ooacoao-QOt 
-2.0418*79-001 
-3.1251*27-003 
-1.S4*7*2C-0C3 

. 3 . 8848804-004 

-5.9121731-034 

-4.2716*79-004 

-3.2550*83-004 

a.oooococ-ooi 

0•OOCOOQQ-OO1 
Q.OOOOOOO-OCI 
2.38*7119-001 
-*.53*71*0-003 
-1.7198323-003 
-9.51*3249-004 
-*•199**37-004 
•4.4246373-004 
-3.3450516-004 



435 



ABU. AREA SUtSICSS—INVERSE MATRIX 


231 o.oqooqoo-ooi a.ooooaoo-om 
sot o*oooocno-oci o.cooonoo-ooi 

203 0*0000003-001 O.SOOOOOO-OOl 

204 0*0000000*001 3«OOCOOaC-OCl 

200 2*3312737*001 -I.♦3*8 I02-GOl 

_ 204 .4*372*155-003 -2**530627-CC3 

J07 *|*47*52* 1 *003 -1 .*6*»7*I **-00 3 
20« .4*27224 l 6-00* -8.*274*97-00* 
204 .4.044S447-00* -5.62C2P70-0C* 

210 •6.31**437-036 -4.0944789-00* 

211 0*0003000-001 3.0000000-001 

2|2 .0*0000000-001 C.0300300-001 


213 

0*0000000-031 

c.-ccoooo-ooi 

214 

0 *0000000-001 

c.cooooco-aoi 

. . 21* 

0 *000^000-001 

2.276*231-00 j 

21 * 

•4*0824066-00* 

-4.217881*-C03 

217 

•1*4313816-003 

-!•• 432*23 2-003 

m 

•1*0010431-003 

-4.0**5874-00* 

21 * 

•4.3723371-006 

—S* *031705-CO* 

220 

—4.44018*5—00* 

-6.2216002-00* 


0 *0000000-001 

c.oooaoco-oot 

- 

222 

o.oocccoo-coi 

O.OOCOOCC-OOl 

223 

0 *0000000-001 

0.0300000-001 

224 

o.oooacoa-oci 

C.CGOOOCC-OOl 

22 * 

a.oaaooao-cci 

o.cccoaoo-aoi 

224 

•2*48S3*4*-002 

-9.7*80663-00* 

227 

•2.1**3448-003 

-1.48*9687-003 

220 

•1.0900*81-003 

-4.773*771-OC* 

224 

•4.7*41950-00* 

-4.22594*1-00* 

230 

•4.4807*46-006 

— .39CaG*5-0C* 

'231 

0 *0000000-001 

3.CCOCOOC-001 

232 

0*0000000-031 

o.coccGca-ooj 

233 

O.CCO"OCO-OOi 

a.cjcaoco-ooi 

“234 

Q.goc*'coa-oai 

C.COCOGCO-COI 

23* 

0 *0000000-001 

o.caoacoo-ooi 

234 

3*13*3742-002 

-2.-3174*2-002 

237 

-2.8057358-003 

-2.10*5572-003 

23'* 

-1.1447021-003 

-l .0651812-003 

234 

-7.1777*76-00* 

-6.5*6i6ia-ac* 

240 

•4.8*4*320-00* 

-4.5901279-OC* 

241 

o.ooQoaao-ooi 

O.GGCCOCG-CO1 

242 

O.OOOOCOQ-COl 

o.coorcoG-aci 

243 

*0*0000000-031 

o.^coaoco-oot 

244 

o.aooocoo-ooi 

o.ooococo-ooi 

24* 

o.oooaoao-ooi 

C.CGOOCCO-OOI 

244 

-1.7745*37-001 

3.0737340-002 

247 

•2.47*33*0-003 

-2.7**3320-003 

24* 

-1.3318*06-003 

•|. 1 703847-003 

244 

-7.47*33*6-00* 

•7.0232368-00* 

2*0 

-*.1343*56-004 

-4.7926302-00* 


0.0000000-001 
O.OOOOCOC-OOl 
O.OOCOOOC-POI 
0*0000000-031 
3,3hS2*22-C02 
-3.316*537-003 

• 1 .28681*7-003 
-7.703*8*0-00- 
-5.2*06852-00* 
-3.a*2-506-cc* 

O.OOOOCOC-QCl 

o.oococoo-coi 

0.3000300-001 
O.OCOCOOO-OOl 
-1 .34*2033-001 
-2.8777254-003 
-l .•♦281 1 l 7-003 
-4.2223HSA.-C0* 
•5**879521-00* 
-3.9780600-00* 

o.ccacccc-cai 

0,0300000-001 

a.ooacono-cci 
o.ccococa-coi 
2.22 820"*-001 
-6,0735665-203 

• l .5931806-003 
-8.d3l62»7-0C** 
-5 • 76 85h4*-0C* 
—♦.1288957-00* 

o.ocaoooo—ooi 
o.coocooc^ooi 
o.OGonoco-noi 
o.acooGCc-ooi 
a.ooaooca-oci 

-3.**12525-00* 
-1.8*16025-003 

-9.55142*0-004 
-6.0883454-00* 
-H.297CS22-CC* 
a.occcooc-ooi 
0,CCOCQCC—50 1 
0.0000000-001 
a.oacccco-cci 
0. ooooooo-oci 

-2.3318885-002 

-2.0578472-303 

-1.0*18363-003 

-6 . *5*84 24—30* 

-*.*450341-00* 


PACE 5 ROWS 21-25 


a.oaoooafl-oai 

o.ooQOoac-ooi 

c.aooaooo-ooi 

C.QQOOOCO-OOl 
-2.60366*0-002 
-2.2650874-003 
-1.I*saj04-003 
.7.0741726-00* 
—* .401080**03* 
-3.63*6760-00* 

o.ooao'aon-ooi 
a.GQaoooo-ooi 
0*0000000-001 
c.acooooc-ooi 

3.27064*0-002 
-2.4*15260-003 
- 1 .2S*7iaS-003 
.7.5164566-00* 
-5.1183370-00* 
-3.754*076-00* 
0*0000000-001 
o.oaooooo-coi 
c.OGaoooo-ooi 

O.COOOOQO-OOt 
-1,8516687-001 
-2.306471*-003 
-1.34 3849*-0Q3 
-8.0248*86-00* 
-5.363*471-00* 
-J.841346*—00* 
o.ooocooo-aoi 
a.aooaaon-aoi 
o.aaaaoac-ooi 
' o.aaaooao-aoi 

2.1787317-001 
-5.4337232-003 
-l.566*474-003 
-8.6314361-00* 
-5.6*18815-00* 
-*.0*138*5-00* 

o.aooocoorooi 
c.oooooca-ooi 
a.auooooo-cot 
3.0000000-00 I 
a.aoooooo-ooi 

-8.1540037-00* 
-l .8004724-003 
-4.3*33500-00* 
-5.4587*80-00* 
-*.2084*55-00* 


0*0000000-001 
0 * 0000000-001 
Q.OOOOCOC-COl 
0 * 0000000*001 
-4»**4H690-00* 
-1*48120l*-003 
-1*026*49^-003 
-6.5283305-004 
-*.S4S7367-00* 
-3.***3367-00* 
0 . 0000000-001 
0.0030000-001 
0 * 0000000-001 
o.oaccooc-’ooi 

-2.5*2*742-002 
-2.2077589-003 
-1.1166015-003 
-6*4058515-00* 
•6.78758*0-00* 
-3.5534826-00* 
0.0000000-001 
a.OOCGCOC-GQl 
a.occcooc-oci 
o*occcaoc-oci 

3.20Q886--00 2 
-2*3713064-003 
-1*22*7*54-003 
-7.3*20397-00* 
-5.0033066-00* 
-3*6752242-00* 

a.ooocooc-oot 

Q.ocooaco-ooi 

o.oocoaoo-oai 

o.ococooc-ooi 

• |.81 187«3-CQ| 
-2*7*10042-G03 
-1.3619492-003 
-7.8*42181-00* 
-5*2*67099-00* 
-3.3045355-00* 

0 * 0000000-001 

Q.ccoaaac-oct 

a*ooooooc-coi 

0.OCOOCQQ-OO1 
2*13*1715-001 
-5*8123697-003 

• 1 *522 l.lS*-0Q3 
-8*4**2*33-00* 
-5*522*612-CO* 
-3.4586264—OC* 
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ABEL AREA XATRICES—Z3VERSS aATHIX PACE 6 ROWS 2f-30 


251 O*00000CO-GO 1 0*0000000-00 I 0.0000000-00 I 0.0000000-001 

252 0*0000000-001 0,0000030-001 0.0000000-001 0,0000000-001 

2SA 0.0000000-001 0.0000000-001 0,0000000-001 0.0000000-001 

24*1 0 * 0000000-001 o.oooo doo-ooi o.ocoocno-ooi o.ooooooc-ooi 
25 S 0*0000000-001 0«OOOOCOO-OOl C ,0000000-001 o.oucoooo-ooi 

25* 2*0^223*1-001 -l .7399279-00 | 3.0154048-002 -2,339751 l-002 

252 -4,4936569-003 -2.4 215110-00 3 -2,4864802-003 -2.01 **095 l-003 
259 -1 *4ff 8i0»-003 -1.3034*1^-00 3 -1 « l h56**38-G03 -1.0198699-003 
259 —( .247*‘h52-C0- -7 .5 1 9233 1-00m -4.97 7*»8 5 1 -CO 9 -4.32 1 4008-qOm 
2*0 -S , 4 »0945**8-00m -5.03203M2-00M -M , 64588“ 1 -QG9 -H , 3950636*009 

241 0*0000000-001 0.0000000-001 0.0000000-001 0,0000003-001 

2*2 0*0000000-001 0.0000000-001 0.0000000-001 o.ooooaoo-oo1 

2*2 o*ooooocc-ooi a .ooococo-ao1 0. OOGOUCO-QOl 0,0000000*001 

2*9 o*ooooopo-coi o.oooooco-ooi o.oaooooo-aoi o.auocaco-oo i 

2*5 0*0000000-001 0.0000000-001 0.0000000-001 0,0003000-001 

2*4 0*0000000-001 2.0526*32-001 -1,7063165-001 2.9406588-002 

J47 -7**572323-009 -5.5818525-003 -2.567 16 38-003 -2.632*21 6-003 
2*f -1 *7268390-003 -l . “593390-003 - I . 277 l357-CC3 -1 * 12232C2-OC3 
2*7-4,9*17320-009 -8•1CCS497-Q0 m -7.3480360-009 -6.739773t-OQ9 

270 -5*7205832-009 -5.302903 J-OOm -*♦ .9332699-00“ -“,6092396-009 

271 0*0000000-001 Q.OOOQOQO-OC| 0,0000000-001 0,QUOOOQO-QG i 

272 o*oooooco-ooi o.occooan-coi o.aacoooc-oct a.oaaaaao-ooi 

273 o*oocccoo«oo 1 0 .OOOaOCO-OO1 o.uaoooco-oci 0,0000003-001 

279 o*oooooco-coi c. cococoo-ooi a.aoaaaca-oai o.oaooooo-ooi 
2?s a.ocooooo-ooi a .cocoooo-oci c.oaoacco-ooi o.oocoaoo-ooi 

274 0*0000000-001 O.CCOOOCO-CC1 2.0152902-001 -1,4750271-001 

277 •2*2942956-002 -7.*3320 I9-00m -5.976317 6-003 -2,51594*6-003 

**""' *274 -1 ,939C069-0C3 -1.6929*68-003 -1.9306 7 8 6-003 - 1.25 20 1 5 2-00 3 

279 -9.7958SS7-009 -8 • 796 * 206-00 a - 7,9 m27587-009 -7.2299856-009 

280 -*.0742665-009 -5.6 103969-00* -5.2317C99-0Q9 -m,8396023-009 

2si o*ooonooo-ooi o.oaoacco-ooi 3 , 2000000-001 0 , 0000000-001 

242 0 , 0000000-001 c.ocoonco-ooi 0,3000000-001 0 , 0000000-001 

243 '0.0000000-001 0.3000300-001 0.0000000-001 0.0000003-001 

- 249 0,0000000-001 O.OQOOOOO-OO l 0.3000000-001 0.0000000-001 

245 o.oooooco-ool o .coccooo-aoi o.aaooooo-ooi a. 0000003-001 

244 0*0000000-001 0.0000300-00l 0.3030000-001 1.9798489-001 

*207 2*4592259-002 -2.2085160-002 .7,22*58 79-00** -5.37 499 16-00 3 

244 -2.5329*26-003 -| .89727i8-003 -1.6409399-003 -1,9035297-003 
259 -1,0799 m77-C03 -9,6105929-009 -8.6207917-009 -7,7932S16-Q09 

290 -**9859202-009 -5.9630700-009 -5.53*80 12-00“ -5.1056310-009 

291 0*0000000-001 0.300C300-00 1 0.3000000-00 1 3,0000000-00 1 

292 O.OOOOOCC-OOl 0.3000000-001 0.OCOOCOC-OO1 0.0000CC0-00t 

293 0*0000030-001 0 .OQOqOQO-OO| o.occoooo-ooi o.aoooaoo-ooi 

299 0*0000000-001 O.OCOQOOO-OO 1 0,0000000-001 3.00QQG0C-QGI 

295 0*0000003-001 O.OQOQOOO-OO 1 Q.QOOOCOO-OO l 0.OOUOOOO-OOI 

- 294 o*oooocoa-ooi o.coconoQ-oo 1 o.ooocooo-ooi 0,0000003-001 

297 -1.4172878-001 2.3 122737-002 -2.17077 35-002 -7.0 298 395-009 

294 •2*9214990-003 -2.“870996-003 -1,8429891-003 -1,4305899-003 
2f* •1.2057889-003 -1.059*880-003 -9.9399108-009 -8.963*822-009 
JQO •4.4404929-009 -4.36893“9 -OCm -5,8555208-009 -5,9078580-009 


0 , 0000000-001 
O.QOCOQOO-OOl 
o.ooooooc-oo| 

O.OOOOOOC-OOl 

0,0000003-001 

-7.8989727-00“ 

- 1.7*28 1 1 3-033 

-9*1969099-009 
-5.8363502-009 
-9.1 295S6«-C09 
O.OOQOOOO-OOl 

a.ooaooQC-oci 

o.ooooooc-aci 

O.QCOOCOC-OOl 

o.oaocaoa-oai 

•2.2903021-002 

- 1,9728778-003 

-9.9915655-009 

-6.1955956-009 

•9.3097833-009 

C. ooooooo-oot 
0 . 0000000-001 
O.OOUOCCC-OOl 
o.oaoccoc-cot 
0 .0000000-001 
2.9086192-002 
-2.5812907-003 
-1.1002920-003 
-6.6099199-009 
-9.5172720-009 

o.oaocoac-oui 

O.OOOOOOC-OOl 

O.OOOOOOO-OOl 

0 . 0000000-001 

o.oouoooa-oot 

• 1.4 9539 0 2 — 00 l 
-2*9676270-003 
-I .228281 1-003 
-7.0899053-009 
-9.7S06283-009 

a.ococooc-oai 

O.OOOOOCC-OOl 

O.OOOOCOC-001 

O.OOOOOOC-OOl 

O.OOOOOOQ-OOl 

1.9962521-001 

-5*2818816-003 

-1.3778092-003 

-7.6513729-009 

-5*0192499-009 
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ABSL ARTk VAT^rCKS—ITVE^CK MATRIX 


~ 301 

O.OOOOQOQ-OOt 

0,0000000-001 

0,0000000-001 

302 

0*0000000-001 

0•3QCQQCC-001 

o.cccoooa-oot 

303 

0*0000000-001 

O.OOCOOOO-OCl 

3,0000000-001 

309 

0*0000000-001 

0 *0000^00-001 

o.oocoaoo-aoi 

300 

o.ooooooo-ooi 

0,0000000-001 

o.ooooooo-ooi 

_30* 

0*0000000-001 

O.OQOOOQC-OCl 

0, 3COOQGC-GG1 

302 

" I*91*2915-001 

-I ,5905705-001 

2 . 74754 - 7-002 

30* 

•5*1920517-003 

-2.3785532-003 

-2.9435779.003 

30* 

-1*3533999-003 

-1.1894370-003 

• 1 .0909299-003 

310 

-7*5l65|75-009 

-6.8383089-0C4 

-4.2547/97-009 

3tl 

o.ooaoooo-cot 

o.cocoocc-oot 

3.0C0CCC0-Q01 

312 

0*0000000-001 

0.0000000-001 

o.ccoooso-aoi 

313 

‘ o.ooooooo-ooi 

0.0000000-00I 

o,acooacc-aoi 

31* 

o.ooooooo-ooi 

o.oooooco-an 

o.ooococo-aoi 

- .Jl* 

0*0000000-001 

0.0000000-001 

o.aoccooo-oai 

31* 

o*aoaoooo-ooi 

a.oooofioo-ooi 

o.cococoo-ooi 

3I» 

0*0000000-001 

l .6838559-001 

-l .5451350-001 

_ . 31* 

-*•*766707-009 

-5.1066159-003 

-2,337hQ77-003 

31» 

-1.5799099-003 

-1.3301955-003 

-l .1491398-0Q3 

320 

-0.1717735-009 

-7,388t“65-0C4 

-6.72 1 77C8-Q0H 

>-321 

0.0000000-001 

O.OOOOOOO-CCI 

3,0000000-001 

322 

o.ooooooo-ooi 

o.ooooooo-ooi 

o.coooaoo-ooi 

323 

o.ooooooo-ooi 

o.coooooa-coi 

0 . 0000000-001 

32* 

o.ooooooo-ooi 

o.aooonco-coi 

o.aoaccao-oci 

“ 32* 

o.ooooono-ooi 

Q.OCCOOQO-COl 

O.CCCOGOO-COt 

32* 

0.0000000-001 

o*caoaooo-ooi 

o.ccoooco-oai 

_ 32» 

O.OOOOOCO-OOI 

a.oooooco-oci 

l ,8598243-001 

32« 

*2.0481799-002 

-6.516Q371-C09 

-5,0252292-003 

32» 

-1.7483087-003 

-1.5983925-003 

-l .3031036-003 

330 

—*.9580358-009 

-S.0362205-009 

-7.2457792-009 

331 

o.ooooooo-ooi 

o.ooococo-ooi 

3,30 00000-001 

332 

O.OOOOOOO-OOI 

a.ocooaca-GOi 

0 , uOOOQOO-QQ1 

333 

O.OOOOOOO-OOI 

o.coacooc-coi 

0 • OOCOOOO-CO 1 

339 

O.OOOOQOO-QCI 

o.ccocacc-ooi 

a.ccooooo-oai 

330 

o.ooooooo-ooi 

0.2000^00-001 

o.oocoono-ooi 

33* 

a.OQQOOOO-OOl 

a.ooocoao-oci 

O.CCGOOOO-OOl 

’332 

o.ooooooo-ooi 

O.OCCOOUC-OO| 

o.oaoocco-ool 

33« 

2.*952500-002 

-2.037(3610-002 

-6,3497730-009 

33* 

-2.3259243-003 

-1.7393711-CC3 

-| .5239958-003 

™ 3*0 

-9,8986976-009 

-8.8137337-009 

-7,90*8423-009 

3*1 

o.ooonoca-oat 

o.cocaooc-ooi 

0.3000000-001 

3*2 

o.ooooooo-ooi 

O.C000003-00» 

3,0000000-00l 

3^3 

0.0000000*001 

o.coooooa-rci 

3,3000000-001 


o.oooooao-oai 

O.CQOOOOO-CC1 

0 . oooaooc-oci 

390 

0*000*000-001 

o.oooonno-cai 

o.aoaaoco-ooi 

3*8 

0,0000000-001 

O.OOCOQOO-OOl 

o.aooocoo-ooi 

*** 

o.ooooooo-ooi 

o.ncocooc-oci 

o.ooooooo-oat 

3*o 

-1.9955768-001 

.2.6079994-002 

-2.2073929-002 

3** 

-2.2259356-003 

-2.2894261-003 

-1./I27279-003 

300 

-1.10*7571-003 

-9,7938940-009 

-8,6758789-009 


?AGS 7 SOTS 31-35 


0 , 0000000*001 
o.ooooooo-ooi 
0 , 0000000-001 
0 , 0000000-001 
0 , 0000000-001 
0 , 0000000-001 
- 2 , 1 JM 9 QQ 1.002 
- I,82***52-003 
- 9 . 26 * 0381 - 00 * 

- 5 . 7531091-009 
0 , 0000000-001 
0,0QQGaaa*Q0I 
0 ,0000000-00 I 
o.ooocoao-aoi 
a.oaaooQO-ooi 
0 , 0000000-001 
2,7 299252-002 
- 2 . 9 Q 22559 - Q 03 
-l , 02307 s **-033 

isa**2jc-oo** 
0 , 0000000-001 
0 , 0020000-001 
o.aoaoooo-ooi 
o.coococo-ooi 
a.aoaocoa-ooi 
o,oocooco-oot 
-l .SHOflei^-oat 
- 2 , 2982720-003 
- 1 , 1998013-003 
- 4 . 6108956-009 

0 , 0000000 - 00 l 
0 , 0000000-001 
o.oooaaoo-aoi 
o.ooQoaao-ooi 
o.oooooao-ooi 
0 , 0000000-001 
1 , 8270992-001 
.* ,9h7S834-003 

• 1 , 2870399-003 

- 7 , 1989 * 35-009 

0 , 0000000-001 
0 , 0000000-00 I 

a.caooaoo-ooi 

o,oocooco-aoi 

o.ooooooo-ooi 

o,ooaoooo-ooi 

o.oooococ-ooi 

- 6 , 2220474-009 
-| . 9997797-003 

• 7 . 78 - 32557 - 00 ** 


0,0000000*001 

0*0000000-001 

o.ooooooo-ooi 

0*0000000-001 

O.OOCOOOO-OCl 

0*0000003-001 

-♦♦8H7S90J-O0 1 * 

-1*8017819-003 

- 8 * 3190122-009 

• 5 , 3136799 - 00 * 

o*oouaooc-oui 

o.oocoooo-aoi 

0,0000000-00 I 

a.ooaaooo-ooi 

0*0000000-001 

0*0000003-001 

-2.1007**6-032 

-1,7981994-003 

-9,1092894-009 

-5,6556*99-009 

Q.aoooooa-ooi 

o.ooocooo-aci 

a.aoaoooc-oot 

O.COQOOCO-OOl 

o.oaooQcc-aQi 
a.ocaococ-aci 
2*66*2000-002 
-2*3629290-003 
-l .006Q826-00J 
-6*0989792-009 

o.aaucooc-cot 

o.cacccoo-ooi 

Q.COOOOOQ-OOl 
Q,0000003-COl 
Q *0000000-001 

o.ocoocoo-aci 

-1*5177229-001 
-2*2609947-003 
- 1 . 12*3639-003 
-4.50*5*19-009 

Q.doaccoo-oai 

Q.OOOOCOO-OCl 

O.COOOCOO-OOl 

o,oaoccoc-oci 

Q.acacooo-aoi 

Q.aaoocoo-ooi 

| ,6005795-001 
-9*8/3*028-003 
-1 .2669287-003 
-7.0373194-009 
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ABEL AREA XAtRICES—INVERSE XATRIX PAGE 8 ROTS 36-AO 


■ 'J*t 

0*0000000*001 

0 

.0000003-001 

0 . 0000000-001 

O.OOQOQ00*001 

0 

,0090000 

• 001 

352 

0*0009000*001 

0 

.Goaooca-aot 

o.ocooooa-ooi 

o.ooooaao-ooi 

0 

•OGQCOQS 

-001 

353 

0*0000000-001 

0 

• noooono-oo i 

0.0000093*001 

a.ooaoooa-ooi 

0 

.0000009 

-oc 1 


0*0000000*001 

0 

•aocoooc-coi 

o.ooocecc-oci 

o.cocaoaa-aoi 

a 

•QOQCOOC 

-001 

HS 

0*0000000*001 

0 

•0000000*001 

o.cocaoac-cai 

o.ooaoooo-aoi 

0 

.0009000 

-001 

354 

0*0000000*901 

0 

•acooooo-aoi 

o.ooooooc-coi 

o.ooooooc-ooi 

a 

.occooco 

•00 I 

JS7 

0*0000000*001 

0 

.3000000-901 

o.ocoocoa-coi 

o.oocaaoo-oai 

a 

.0000000 

-COl 

JS< 

1*2751820*00l 

-i 

.47437 30*00I 

2.57218S5-0Q2 

-1.9788*92-002 

-6 

•C872CC7 

-004 


•4*4024382*003 

-2 

.1914*67*003 

-2.2554009-003 

-1,6867857-003 

-1 

.4770962 

-C33 

340 

•1*2477020*003 

-1 

.0919218*003 

-9.595 7547*094 

-8.5440187-094 

-7 

.6649994 

-004 

141 

0*0000000-001 

0 

.0000900-091 

o.coccoca-oQi 

G.aaoQaao-ooi 

a 

•0000303 

-OOl 

342 

0*0000000-001 

0 

.0000000*901 

a.aooccoo-oai 

o.ccoaaoo-ooi 

a 

•CQOCCOG 

-COl 

343 

0*0000000*001 

0 

.3000000-001 

9.0000090-001 

0.0000009-001 

0 

•CCUCOQO 

4Q0l 

144 

0*0009000-001 

0 

.0000003-001 

3.0000000-901 

a.Qaoaoan-ooi 

a 

.COOCOOO 

-OCl 

345 

0*0000000-031 

0 

.0000300-091 

0.0300200-001 

o.aaaoaaa-aoi 

0 

•9QOCOOO 

-001 

“ *' '144 

0*0000000-001 

c 

.0000302-001 

O.OOOCOOO-OOl 

o.aoacooc-aoi 

a 

•OOOCOOQ 

-GO 1 

142 

0*0090000*001 

0 

.0000000-001 

c.ocooacc-ooi 

0.9000009-001 

0 

• 000.9003 

-00 l 

144 

0*0009000*001 

1 

.7508298-001 

-1,4540462*001 

2 . 5378549-002 

-1 

•951S729 

-002 

144 

-5*4545308*004 

• 4 

.7344*50-003 

-2.158*803-003 

•2.222*399-003 

-1 

.4614599 

-003 

170 

— 1*455 T934-003 

•l 

.2292*83-003 

*1.9758048*003 

-9.4539642-004 

-a 

.4177433 

-CO 4 

171 

0*0000000*001 

0 

•nooaooG-cai 

a.anaaaoo-ao» 

a.ocQQoaa-ooi 

a 

•300SCQ0 

-OOl 

172 

0*0009000*001 

0 

.ooooooc-cc 1 

o.oocoaco-aoi 

o.oaoaoon-ooi 

0 

•QQCCCC3 

-COl 

171 

0.0000000*001 

■o 

.0000003*091 

C.3930009-001 

o.auoooac-ooi 

a 

•ocaacoc 

-00 1 

174 

0*0009000-001 

a 

.cacooco-cct 

O.OOOOCOO-COl 

Q.aacoooo-aoi 

0 

•coacooc 

-OCl 

17 S 

' 0*0000000*001 

0 

.cooonoo-oci 

o.ooccooc-cai 

o.ooooaao-ooi 

o 

•accaccc 

-COl 

174 

0.0000000*001 

0 

.0009000*001 

o.ccaoaoo-oat 

o.acoaooo-oci 

c 

.aococac 

-OCl 

177 

0*0000000-001 

a 

•ooccoco-aoi 

O.OCOOCCC-QQl 

0.0QCCQC0-001 

a 

•QOCCOOO 

-QOl 

174 

O.OOOOOCQ-CQl 

0 

•OGoanaa-aci 

1.7274530-001 

-1.434537*-00l 

2 

.5048645 

-002 

177 

-1*4253751*002 

•5 

.8384843-004 

-4.**923C2-C03 

-2.1278677-003 

-2 

.1912426 

-003 

140 

-1.43417-1*003 

-1 

, 4345741-003 

-l .2114*15-003 

-1.C603S74-OC3 

-9 

.3180459 

-004 

34 l” o.ocooooo-ooi 

0 

. 0000000-001 

3.300CCCQ-001 

o.acoooan-ooi 

0 

•QOQCOOC 

-OOl 

142 

0*0000000-001 

0 

•ooooooa-oQ 1 

a.ccooaao-coi 

o.ooaccQO-oai 

c 

•ococaoc 

-OOl 


0*0000000*001 

0 

.oooaoca-991 

a.GCOOOCC-QOl 

□.ooccoco-aoi 

0 

•ccccooc 

-OOl 


" 0*0000000-001 

0 

.ooajGco-cct 

a.ooooooo-aot 

o.acoaaoo-ooi 

c 

•COCGOQO 

-OCl 

145 

0*0000000*001 

0 

•OQOooao-ooi 

o.aoocooc-aci 

o.ooacaao-aai 

0 

•aooccoc 

-C0| 

_144 

0*0000000*001 

0 

.caooooo-ooi 

0.0000000*001 

o.aooooao-coi 

0 

•CCCGQQC 

-C0| 


0*0000000-001 

a 

• oooocco-oc 1 

C.3COCQCO-OQ1 

o.oaoocco-ooi 

0 

•ooacccc 

-QOl 

144 

o.ooaooca-oQi 

0 

• cococoo-oa 1 

O.OOCCQOO-OOl 

1.7Q49883-001 

-t 

.4157937 

-CO 1 

_147 

2*4731271-002 

-l 

.9002040-002 

-5.7235471-004 

-4,606*990-003 

-2 

•Q93G379 

-OC 3 


•2*1411|4Q-003 

-l 

,6153568-003 

-1,4146401-003 

-1,1947411-903 

*1 

•94S53S7 

-003 

171 

0*0000900-001 

0 

.9000000-091 

o.caoocoo-ooi 

o.ocaoooo-oci 

a 

•0C0Q00C 

-0C| 


O.OOOCOOO-OOl 

0 

.0000900-00 l 

0 .cococcc-co 1 

o.oooQcoo-ooi 

a 

•acccccc 

-00 1 

171 

0*0009000-001 

0 

.9000000-001 

o.cococco-ooi 

o.aoococo-oc't 

a 

.CCOQCOC 

•OOl 

174 

0*0000000-001 

0 

.0000000-001 

o.ococccc-coi 

O.OOOOOQO-COl 

0 

•03C00GC 

-OOl 

_175 

0*0009000-001 

a 

•0000000*001 

o.cococoo-ooi 

O.OQOOOGO-OQl 

c 

•200C0QC 

-OOl 


0*0000000-001 

0 

.aaoQOoa-ooi 

0 • ccooooo-oo1 

o.aooadon-ooi 

c 

•30CC00U 

-OCl 

177 

0*0003000-001 

0 

•ccoonoQ*oot 

0.0000009-001 

o.coaacoo-oQi 

0 

•coocooc 

-OOl 


0*0000000-001 

0 

.oaaonoo-coi 

o.ooococo-coi 

o.ooooooo-ooi 

1 

•6833778 

-OOl 

~ Iff 

•1*3777458-001 

2 

.4425712-002 

-1.8759443.032 

-5. *1*2568-004 

• 4 

.54*5536 

-003 

400 

•2*0444043-003 

-2 

•13210SS-CO3 

•1.5934508*003 

-1.3954767-003 

-1 

*1784407 

-003 
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ABEL AREA MATRICES—INVERSE MATRIX PACE 9 RO*S 41-45 

Tqi 0.0000000-001 O.OOCOCOO-OOl 0,0000000-001 0,0000000-001 0*0000000-001 

402 0*000(1000-001 a.QOOOOCO-OOl 0,0000000-001 0,0000000-001 0*0000000-001 

j*oJ o*oqooooo-coi o,occocco-ooi c.oocoooc-ooi o.oooaaoc-ooi o*ooooooo-aoi 

404 0*0000000-001 Q*QQ0qCC0-00| 0*0000000-001 0,2000000-001 0*0000000*001 

4QS 0 * 0000000-001 0*0000000-00l 0,0000000-001 o.oaaocoo-coi 0*0000000-001 

404 0*0000000-001 0*0000000-001 O.CCOCCCO-COl 0,0000000-031 0*0000000-001 

402 o«ooooooo-Qot o,oqoooqo-ooi a.ococuoo-ooi o.ccoooco-ooi o.ooaocoo-QOi 

40* o*oooocco-ooi o*3000^00-00 1 o.oaoococ-cai a.ocaacco-oai c*ooooooc-oci 

404 1*44256*8-001 -1.300*095-00| 2. *4 l 3 l l 96-002 - t ,85246*5-002 -S *5 1 0 1’68 -OOh 

4|0 -4,4*84904-003 -Z.C’IS’Sa-COS -2.1C’3660-CCJ - 1 , 5723’2*»C03 -1*3770538-003 
4|| 0*0000000-001 C•CCCOQOn-OC 1 a.3000000-001 0,0000000-001 0,0000000-001 

.4|2 o*ooooooa-ooi o,coccoco-ooi n.cooooco-ool o.aacaooa-aoi o.coooooa-ooi 

4|J o*ooooooo-ooi o*cocaooc-coi o,0000003-00i o.Owaoom-noi o*aaooooc-coi 

4|4 0*0000000-001 0,3000000-001 0.0000000-001 o.oaococc-oot 0*0000000-001 

4|S 0*0000000-001 C•0000003-CC l C, OOOOOCO-OO1 3,0000000-001 0*0000003-001 

414 o*ooooooo-aoi o,soQocQO-ooi c• oncoocc-oot o,coaccac-coi o*oqccqqo.-ooi 

412 0*0000000-001 O.OUOOOCO-OOl 0•OOOCQOO-OO1 3.0000003-001 0*0000000-001 

4|t 0*0000000-001 0*3000000-001 0.cooacoo-oo1 0,0000003-001 0,0000003-001 

414 0,0000000-001 1.*’25»23-001 - 1,363*8h|- 33 t 2,3a*7Q91-C32 -1*8302258-002 

420 -5*410440*4-00*4 -4**4324700-003 -2,0 l 5*04 1 -003 - 2,0775934-oG3 - l *552 1 3 l C-003 
4JI O.OOQOOCO-OOl O.OOOOOCO-OOl 0,3000000-031 0 *0000003-001 O.COOOCOC-OQl 

"Wat' 0 * 0000000-001 o.nooacco-coi o.ooooooo-oot o.ooooooo-oai o.acocooo-ooi 

422 o.oooooao-cot a.oooacoo-ooi a.cocoooc-coi a.aacococ-cQi o.ocoococ-ooi 

424 0*0000000-001 O.CCOOCClO-CO 1 0,3030000-001 0,0000003-001 0•QOQCOQC-OOI 

>2* ‘0*0000000-001 0*3000300-001 0*0000030-001 0.3000003-001 0,3000000-00l 

424 o.oocooco-ooi o,eacQOoo-cci o.oooocoa-ooi o.aooaoca-oot • a*cQooacc-aoi 

42 2 O.OOOOOCO-OOl 0*2aCOCCO-00 1 0 .3000000-301 0.OQOOOCO-OQl 0 •OCuOOQC-OO 1 

424 o*ooocooo-ooi o, cqqqooq-ooi a.cooooco-coi o.oaoQaao-aoi q.cococog-ooi 

424 0*0000000-001 0.0000000-001 1 .42316SA-001 -1.3h7S523-0C1 2*35 7 2 79 7-002 

4 JO -1*8085422-002 -5• 3 16 294H-00«* -**,3792433-003 - 1 .9499627-303 -2 *05 l 0Q 37-003 
431 0*0000000-001 0.COOOCOC-OOl 0,0000300-001 0,3300000-001 0*0000000-001 

412 0*0000000-001 0*COOCOCC-OOl 0,OQOOOOO-QO1 0,CQCCQ03-00l 0.0000003-001 

4JJ O.OOOOOOO-COI 0 *0000000-031 C•3000QCO-001 0*0000003-001 0.CCOCOOC-00 1 

4*4 0*0000000-001 O.OOOOOOC-OCl O.OOOOOCO-OOl 0.0000003-001 Q.CCQCOOC-OOI 

41* 0*0000000-001 0*0000300-001 0,OOCOOOO-COI 0.3000000-001 O.OCQCQOO-COt 

4J4 0*0000000-001 Q.OOOOOOO-CO| C.30C000C-C01 C,COOOOGO-CC l C *3000000-001 

‘412 0*0000000-001 0.3G0Q000-0C l 0 . 3000000-001 0,3000003-031 0*0000300-001 

4ji ‘o*ooooqoc-qqi a.Qcoccoo-ooi o.ooocooo-aoi o.cooaaco-ooi a.oooocoo-coi 

4J4 0*0000000-001 O.OOCOOGO-OC 1 0.0030000-001 | . 4Q«*-84“-0a 1 -1.33 l 9797-CO I 
*440 2*1307762-002 - i • ?876>*»7-C32 -5 , 225 9 3••7-00'* -** , 32 7*»S 2*-C03 - 1 ,96S<* US-003 

441 0*0000000-001 Q.OOCQOQO-COI 0.3000003-001 0,0000003-001 Q*0030000-001 

442 0*0000000-001 O.COOCOOC-OOI 0.3000300-001 Q.ococaco-oot 0*0000003-001 

441 0*0000000-001 O.CCQC'IOO-OO 1 0.CCOOCOO-OOI 0.0030000-001 0 *0000000-001 

444 0,000*000—001 0 *0000300-001 Q.OOOOOOC-OCl 0,3000000-001 0*3000000*031 

44* o.ooonooo-coi o.aoocooa-oci o.ooaooco-coi c.oococotooi o.aauccoc-ooi 

448 0*0000000-001 Q•3CC0CQ0-C01 0•3CCOOOC-COI C.OOCOOCP-OOl 0 *COOCOOC-OO1 

442 0*0000300-001 0*0300000-001 0« CGQOUOC-GOI O.OUOCOOO-OOl 0.0000000-001 

448 0*0000000-001 O.OOQQQOQ-Oni 0,3000000-301 0,0000000-001 0*0000000-001 

444 0*0000000-001 0*0000000-001 0,OOOOOCO-OO1 O.OOCQOQO-COl 1.584*375-00l 

4*0 •U1144J98-0Q1 2*3051*475-002 -1,747*4959-002 -5, 1392333-00** -4*277429*4-003 


ABEL AREA MATSICSS—INVE3SE MATRIX RACE 10 R0*S 46-50 


♦ft 'o.0000000-00l 
♦S2 0,0000000-001 
413 0*0000000-001 

4*9 ■ 0.0000000-001 
4|S 0.0000000-001 
♦S4 O.OOOOOOC-COl 
*4S7* 0.0000000-001 
4*4 0*0000000-001 
♦St 0.0000000-001 
♦40 1 •S**t**0-00» 
♦41 0*0000000-001 
♦42 0.0000000-001 
♦42 0*0000000-001 
♦44 0*0000000-001 
♦4$ 0*0000000-001 
♦44 0.0000000-001 
♦4? 0.0000000-001 
♦4< 0.0000000-001 
♦4* 0.0000000-001 
♦70 0.0000000-001 
♦71 0.0000000-001 
♦72 0*0000000-001 
♦73 0.0000000-001 
♦74 0*0000000-001 
♦75 0*0000000-001 
♦74 0*0000000-001 
477 0.0000000-001 
470 0*0000000-001 
♦74 0.0000000-001 
♦00 0*0000003-001 
♦II 0*0000000-001 
♦42 0*0000000-001 
♦43 0*0000000-001 
♦44 0*0000000-001 

♦ts 0 * 0000000-001 

♦44 0*0000000-001 
♦47 .0*0000000-001 
♦44 0*0000000-001 
♦44 0*0000000-001 
♦40 0*0000000-001 
♦41 0*0000000-001 
♦42 0*0000000-001 
♦43 0*0000000-001 
♦44 0*0000000-001 
♦4S Q.OOOOOOO-OQI 
♦44 0*0000000-001 
♦47 0*0000000-001 
♦44 0*0000000-031 
♦44 0*0000000-001 
SOS 0*0000000-001 


o.ooooooo-ooi 

o.oooccoo-ooi 

C.OOOOOOC-OOl 

O.COCCOOO-OOI 

0.2000000-001 

0 . 3000000-001 

o.ccoooco-noi 

O.OOOOOOC-nOl 

O.OOOOOOO-nOi 

-i.3023»a4-ooi 

O.OOOCOOO-COl 

o.oaococa-coi 

o.oacoooo-ooi 

O.OQOoOQO-OOt 

o.cooocca-oci 

c.ccooooo-noi 

O.COOCOCC-OCl 

o.oaoooco-oci 

o.oooooao-ooi 

1 . 5520998 - 001 

Q.ooooaco-ooi 

O.OOOCCOO-QOl 

0 . 30 C 0030-001 

a.cocoroc-cot 

c.ocoooco-noi 

O.OOOOQOO-OOl 

o.cooonco-aoi 

o.aoooooo-ooi 

o.acaonoa-cei 

o.coaonoo-coi 

o.caooooc-cci 

0 . 3000000-001 

0 . 3000000-001 

o.cocoaoo-coi 
o.cooaooo-ooi 
o.oooooao-ooi 
a.oococoo-ooi 
0 * 3000000 - 00 l 

o.eaccoco-oci 
c*cooaooc-ooi 
O.OuOuOOQ-OOl 
0.0000200-001 
a.ocooooc-aoi 
o.caoocoo-oot 
a.oaoooca-ooi 

0 * 0000300-001 

o.oaooooo-ooi 

0.0000^00-001 

O.OOCOOCO-OOl 

O.OOOCOOO-COl 


a.ooooaco-ool 

O.OCOOCOO-OOl 

0.0300000-001 

o.ooccaca-cQi 

o.Goacooo-ooi 

O.CQOOJCO-OO1 

o.ccoacnc-ooi 

o.oooccoo-ooi 

0.3000000-001 

2.2803-44-002 

o.cocoooa-aai 
a.ooooooo-aoi 
o.oocooaa-oai 
o.aoococc-coi 
c.ccaooca-ooi 
o.aooocoo-ooi 
a.cccacco-ooi 
a.coooooo-cai 
o.oocoaoo-coi 

-1.2893137-001 

o.ococoaa-cci 

o.ccococo-aai 

0*0003000-001 

0.3300000-001 

0.CC03C3C-P01 

0.3300000-001 

T.ooocacp-ooi 

a.acaaccc-oai 

Q.cooaooo-oai 

I.5357392-001 
a.oaooooo-ooi 
o.cocacoo-oai 

3.0000000-001 

o.occocco-aoi 

o.cooacoo-aoi 

o.aoooocc-aot 

o.3000000-001 
O.OCOOCOO-OOI 
0.30QC000-Q01 
0.3000000-001 

o.ooaocoo-coi 

o.coooaao-ooi 

o.coaccao-cct 

0.3C0CC00-0CI 
0,QCOOCOO-GO1 
O.CCGGCCa-OOl 

o.aooocoo-cc» 
o.acoGoco-ooi 
o.ooooooo-coi 
0.0000000-001 


a.coocoao-001 
0 .0000000-001 
o.ouooaoo-coi 
o.ocacoao-ooi 
o.cooaooo-ooi 
a.oocoooo-ooi 
o.socoooa-oai 
o.ocoooop-oai 
a.csaoQoo-ooi 

► 1.21791 l 6-002 

a.occoaao-ooi 
o.aoaoaoo-ooi 
o.aooooco-oci 
o.ocooooo-ooi 
0 .0000000-001 
a.ccaoooo-ooi 
o.oaaooca-cai 
o.ocaccoo-coi 
o.ococoon-ooi 
2.2b6JZ99- 0 02 
o.aoooooo-ooi 
o.oacoooo-ooi 
9. oc 3 oo a o-oo i 

O.CQCOCOO-OOl 

o.cccoooa-ooi 
o.ccooooo-coi 
c.oaooooo-oai 
o.oocoooo-oot 
o.ooaaoao-ooi 
t .27-68S4-001 
a.ocoaooo-ooi 
o.cooaooo-aat 
o.nccocac-coi 
o.ooaooao-coi 
o.oocoaoo-aoi 
o.oaoooaa-ooi 
O.CCOOOOP-OOi 
o.coocooo-ooi 

0.0000023-001 

1.5198901-001 

a.coooccn-noi 
o.Qocaoao-ooi 
o.oococac-ooi 
o.cooaooo-ooi 
o.ooaaoao-ooi 
a.ccoococ-ooi 
o.aoooooo-ooi 
o.aoooooo-ooi 
0 .0000000-001 
0 .0000000-001 


Q.QOOOOOO-OOl 
C.0000000*00 I 

o.aooaooo-uot 

c.aocoooc-ooi 

Q.CCOOOOO-OOl 
Q.0030000*001 

o.cooaaoo-ooi 

0 .0000000*001 

0.0000003*001 

-5.05*3298-009 

a.ococcoQ-aoi 

o.oooooac-ooi 

a.QOOOQOQ-OO1 
C.OOOCOOC-OOl 

o.ooocaco-ooi 

0.0003000-001 
O.OCOCOOO-OOl 

o.ococooo-oai 

O.OCOCOCO-COI 
- I.7290107-002 

a.cccocoo-cai 

o.oaaoaac-cci 

0.0030000-091 
0.COCCOOu-COt 
O.OCOOOCC-OOl 

o.coaoooc-ooi 

o.coccaoo-cai 

o.oooco.oc-oci 

O.COOOCOO-COJ 
2.23305*7-002 
0.3000000-00 t 
O.OCCOOOO-03t 

c.ooooaoo-ooi 

O.OOCQOOC-OO| 
O.CCOOCOC-001 
o.oacoaoo-aoi 
0 . 0033000-001 
o.cocoocc-oai 
Q.OOCCOQO-OOI 
-1.2o198|0*001 
0 . 0023000 - 30 l 

o.ccaocoa-ooi 

O.OCOCCCC-CQl 
O.OOOCCOO-OOI 
O.COQOOOC-OOl 
o.acoouoo-ooi 
0 .0000000-001 
O.COOOCOO-OO1 
0.0300000-00l 
1.5045217-001 
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J. Concerning passwords 

When this documentation was written, batch passwords were not 
needed on the 1110 computer. As of October 1, 1976, such 
passwords were required. Thus in addition to the cards described 
to run AMXINV2, somewhere in the deck a card stating 

@PASS word 

must be inserted, where "word" is the individual user's password. 

A password card is found in the program deck in the card file 
immediately following the @RUN card. 
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II. Loading Abel Area Matrices onto Mass (File) Storage 

In order for the remaining programs in the Abel package to be 
able to use the Abel Area Matrices, they must be resident on the 
computer's mass storage system. This section tells (1) how to 
determine if the matrices are present on the computer's disk 
system (mass file storage device) and (2) how to put them there 
if they are not already. 

A. Are the matrices on file? 

Get on line for an interactive run using UWGT, UWLG, or UWTT, 
followed by an @RUN statement and a password. After successfully 
giving your password and receiving the prompt 

CONTINUE 

enter the following statement: 

@ASG,A ABEL*DATA 

This will attempt to assign the file containing the matrices to 
the run. If the file is present, the response 


READY 
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will be printed, and the rest of this section may be skipped. If 
the response: 

FACILITY REJECTED 400010000000 

is given, that means that the file ABEL*DATA does not exist and 
must be created using the procedures in the next paragraph. 

B. How to load matrices onto the disk 

A card deckwiththe Abel Matrices and the proper control cards 
(except for the ©RUN, ©PASS, and ©FIN cards) is on file in the 
group's computer card file. If a fresh deck of the matrices has 
been punched using AMXINV2, the control cards will have to be 
punched by the user. First the procedure will be given, then 
the control cards will be explained. The ©RUN card in the example 
would be correct for the author—other users should substitute 
their own initials and user ID number were appropriate. 

The full card deck to load the matrices is as follows: 

©RUN AS,2231,1893602639,$5.00 
©DELETE,C ABEI*0ATA. 

@ASG,UP ABEl*DATA. 

©SAVE.S ABEL*DATA. 

©DATA, I ABEl*DATA. 

1000 data cards with the Abel Area and Inverse Area Matrices 
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SEND 

SFREE ABEL*DATA 
SFIN 

Obviously, this cannot be done as an interactive run but must be 
run batch. The data cards must be in order and must not contain 
any extraneous cards. An @PA$$ card is also needed in the deck. 

The @RUN card starts the run and tells the computer who to 
bill (the $5.00 limits the cost of the run, should something go 
wrong). @DELETE,C wipes out the old version of the file if it's 
present or simply prints an error message and continues if the 
file is not present (this way the same procedure can be used for 
making the file fresh and correcting errors). 3A$G,UP recreates 
the file, albeit without any contents. @SAVE,S saves the file 
i.e. preserves for use on future days (otherwise the file would 
disappear at 4:30 A.M. when computer operations terminate). 
@DATA,I tells the computer that what follows is the data to be 
loaded into the file. @END signals the end of the data, and 
3FREE releases the file to be stored on the disk. Finally, @FIN 
terminates the run. The file name ABEL*DATA must be used for 
compatibility with all other programs. 
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12345478901234567*9012345678901234567890123*5678901234567890123456789012345678901 
123456789012345678901234 So 7890123456789012345678901234567*90123454789012 3456 7*901 
J 2345678901234567*9012 3*5678 90123*5 073 90123*5 67 390123*5 67*9012345 67e90122454 73VC1 
12345678901234567890123*567890123*567890123*567890123*567*901234567890123*5678901 
« • « « » • UN IVAC 1110 TI«6/SM**INC EXCC — NUETI-PROCCSSOA STSTC" —- VE 

t urns • >50248_JLIlX-NAftf—S_£iaQGQao0243_LMLI_iiUMaER i 30 _ 


•RUN AS,2231,1893602639,15.00 
AtCLCTE,C A8EL*DATA* 

_uirpur-racc- -Z*oz-072i4-iti5a. 


A«CL*»ATA 15 NOT CATALOCUED OR ASSIGNED 

^_IAC-STATUSi. 400010000000- 

•AS£,UP ABEL*DATA. 

asm»s abewoata. 

——■ HACC -SAVE PROCESSOR. VERSION..5.0611- 

ARCL*DATA<1) TO 0£ SAVED INDE f INITELY 
EM SAVE... 

_ANATA # L .ABEL* DATA.___ 

•ATA6.1- 07/14-17:58:08 


£LLEL_J_QA£l 

OUTPUT 


_IMP-DATA.— IMAGE—COUNl-S—1000. 

Si FREE AB£l«0ATA. 

• PIN 


RUN10S >00248 

nr* 

PROJECTS 02231 

_ AMOUNT 

USERS 1893602639 

CSSTC60LLA1S1 

CPU TINE 

00s00s00.291 

10.01 

»ti« no R£QU£i.LS_ 

no 

40-01 

FILE 1/0 WORDS 

24170 

10.01 

SWAP REQUESTS 

2 

10.00 

IMAP WORDS _ 

2048 

4 0-00 

REPORT USACE 

0.021 

10.01 

CAROS IN 

1008 

11.01 

PACES PRINTED 

1 

40-01 

l» ♦ CC 

• 

10.07 

AON CNAR6E 

1 

10.16 


TOTAL COST *1.31 


-JNE-AJOVE-POLLAA—AMOUNTS—ABC- APPROXIMATE—AMD ARE AASU-flkJim. 

INITIATION TINES 17s58:G4-JUL 14,1975 -XflR-flVER*I£HT-*UNS 

TERMINATION TINE: 17s58:14-JUL 14,1975 

PREVIOUS..RUM.. TIMES. — 1*a48s58-JUL.13.1975_ 


123456789012 1 PACES COST . - 10.03 34567890123456789012345678901234567190: 
12345678901234 56789012345678 931234 56 78 90123454 7 5901234 5678901234567*90.1234567890* 
1234567890123456789012345678901234567890123456759012345678901234*678901234567890* 

i9Ut*7ioAnu<A}aoni}«^«ATionnu<ATtonnu(AyioAi»u«*?igni9U<A>iofli7u<A7iQn‘ 
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III. Program A8ELMA7CHK 

A. Purpose 

ABELMATCHK is used to determine if the Abel Area Matrices 
are properly on file. If errors are found, the output gives 
some indication as to where the problem lies. If the program 
produces no diagnostics, one can rest assured that the Abel 
Matrices are correctly filed in a form suitable for use with the 
Abel Inversion modeling programs. 

ABELMATCHK (ABEL area MATrix CHecKout program) may be used 
either in batch mode or interactively. Input parameters allow the 
program either to operate under predetermined default conditions 
or under novel conditions as determined by the user. 

B. Preparation for use 

To be able to run the program, two steps must have been 
completed: (1) The Abel Area Matrices must be on file, as 
described in Section II of this documentation and (2) ABELMATCHK 
must be on file CHEMISTRY*'JALTERS. One gets to the 
point of initiating the program by saying (after the @RUN card 
or statement): 

@BASIC CHEMI$TRY*WALTER$. (//01 is unnecessarv~the file 

OLD:ABELMATCHK will not be written on) 

RUN (or RUNNH) 
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It should be noted that when the program is through and it is 
desired that the computer be shut down, the statements to do that 
(since the program should terminate while still in BASIC) are: 

BYE 

@FIN (or, for a more detailed billing on an interactive run, 
@FIN,C) 

C. Program method of operation 

The Abel matrices are checked for accuracy by determining 
if the reputed Area Matrix is indeed the inverse of the Inverse 
Area Matrix. If cards get "shuffled" in loading the matrices or 
there are punching errors, the product of the area and inverse 
matrices will be incorrect, and the errors will occur in 
recognizable patterns. Thus the steps in the program are: 

(1) Input the area and inverse matrices; (2) multiply the two 
matrices together and (3) check that the product matrix is the 
identity matrix to within predetermined limits (preferably to 
within round-off error). 

D. Input to program 

The user must specify two items to ABELMATCHK: (1) the name 
of the file containing the area matrices and (2) the limits within 
which the product of the two matrices must equal the identity 
matrix. Oefault values exist for both specifications. 
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With regard to the defaults: Entering either the digit 0 
or the number -2 when a question is asked by ABELMATCHK will 
result in default values being used. The default file containing 
the matrices is ABEL*DATA (conveniently the file name illustrated 
in preceding sections) and the default error limit is 5.(MO* 8 , 
a value found by trial and observation to be suitable. If 
default values are entered in response to questions and the 
matrices are properly on file, one should receive no diagnostics 
and further, may rest assured that adequate checks have been 
performed in searching for matrix errors. In the absence of due 
cause, use of the default values is recommended. 

The first question that the program asks is: 

WHAT IS THE NAME OF THE INPUT DATA FILE? 

As noted above, the answer "0" or "-2" will result in the use of 
ABEL*DATA as the input file. However, some user may have placed 
the matrices into a file with a different name, say ABEL*EXAHPLE. 
That file name, including the asterisk where appropriate, would 
then be entered in response to the above question. Whether a 
period follows the file name is immaterial; the program sets 
syntax automatically. Note that typing , 'ASEL*DATA I, is equivalent 
to entering a 0 or -2. If you assign an improper file, program 
operation will terminate and in all likelihood control will rest 
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with the computer operating system, not with BASIC- To recover 
from such an error, enter a new (3BASIC CHEMI$TRY*WALTERS. 
statement and try again. Be SURE that ABEL*DATA or some other 
data file exists before attempting to run ABELMATCHK! The 
procedure for checking file existence is in II.A above. 

Once the matrices have successfully been recovered from the 
file, they are multiplied together, and the following question is 
asked of the user: 

WHAT IS ALLOWABLE MATRIX ERROR? 

Recall that for the identity matrix, all elements along the 
diagonal of the matrix (matrix C(I,J)’s diagonal elements are 
those elements for which I=J) should equal 1.000... and all other 

elements should equal 0.000_ The allowable error is the amount 

the individual elements of the product matrix may differ from 
their theoretically desired values. As the area and inverse matrix 
contain transcendental numbers, some round-off error is unavoidable. 
Using matrices known to be accurate, it was determined that the 
maximum error to be expected due to round-off was approximately 
4.74*1CT 8 anywhere in the matrix (see sample output attached). 

As BASIC retains only seven and one-half significant figures, it 
can be seen that this is indeed round-off and not some other 
systematic error. Correspondingly, the default value for the 
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allowable matrix error has been set to 5.0-KT 3 . Use of a smaller 
value is needlessly restrictive and causes excessive diagnostic 
printouts; use of larger value might allow some errors to slip 
through* If an error limit less than or equal to zero is 
specified, then the default limit is employed; any positive 
limit, no matter how close to zero, is used as entered as the 
maximum error limit. The default limit is highly recommended 
for standard use. 

E* Interpretation of output 

After the maximum allowable matrix error is specified, the 
program searches systematically through the product matrix for 
entries which are not within the allowable error limit. If it 
finds an erroneous value, an error printout is generated: 

I s 5 J=17 C(I,J)- 4.85-10- 5 

Here I is the row of the area matrix used in calculating C(I,J) 
and J is the column of the inverse area matrix used in the 
calculation. C(I,J) is what the product of the row and column 
actually were; if I=J then C(I,J) should equal 1.000..., 
otherwise it should equal 0.000.... Using these error printouts 
for uncovering precisely where the matrices are in error will be 
discussed shortly. 
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When the entire product matrix has been searched for 
erroneous values, the following message is printed: 

IF NO ERROR PRINTOUTS HAVE BEEN PRINTED 
THE MATRICES ARE CORRECTLY ON FILE. 

OTHERWISE CHECK FOR PUNCH ERRORS. 

If the matrices are filed correctly, there should not be any error 
printouts as given on the previous page. If this is the case, the 
matrices are ready for use. If error printouts did occur, 
however, the patter of I and J values where the errors were found 
can be instrumental in finding which matrix elements are 
incorrectly filed and can thus speed debugging. If the error 
exists on the file (i.e. on searching the cards no mispunches or 
"card shuffles" are found), the file may simply be reloaded using 
the procedure given in Section II. If an error is found in the 
cards, these may be corrected, based on the output listing from 
program AMXINV2. If large numbers of cards are mispunched, or if 
the cards are getting dog-eared with use, AMXINV2 may be rerun. 
Note: The correct form for a number to be read by BASIS is 
1.2345678E+03. The listing from AMXINV2 (but NOT the punched 
cards) is .in the form 1.2345678+003. Do not let this confuse 
either you or the computer. 

Possible error printout patterns are as follows: 

(1) The default error limit was not used, and large numbers 
of error printouts are obtained, with the I and J values 









scattered throughout the matrix in no discernible pattern. In 
this case the error limit chosen was too small, and the program 
should be rerun with a larger error limit. 

(2) If the default error limit was used and either large 
numbers of error printouts are obtained or there are errors in 
attempting to input the area matrices, another computer user.may 
have overwritten the data file. Additionally, if nonstandard 
procedures have been used, the wrong file may.have been accessed. 
In either case, determine (with MACC consulting help if necessary) 
the cause of the problem. Reload the file according to the 
procedures of Section II if appropriate. 

(3) A number of error printouts appear, but all have the 
same I value. In this case, row I of the area matrix has been 
entered incorrectly. Search the card deck for the appropriate 
row (the AMXINV2 printout will be helpful for this) and determine 
if any cards got shuffled, cards have been mispunched, damaged, 
etc. Correct the errors and do a complete file reload. 

(4) A number of error printouts appear, but all have the 
same J value. In this case, column J of the inverse area matrix 
has in some manner been incorrectly entered. As in the case of 
(3), search the deck for the source of the problem. Sorting 
through punched cards looking for all elements of a given column 
is not an easy task; it may be easier to obtain a fresh punching 
from AMXINV2. 
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Notice that in all cases where real errors are encountered 
it Is recommended that the entire file be reloaded. MACC has 
software which allows correction of specific elements of a file, 
but it is the author's opinion that a total file reload is 
vastly easier to accomplish than to track down and edit a single 
record within a file. 

Two convenient ways exist for getting listings of decks. 
When MACC is not crowded, the deck verifier in the Basic Machines 
Room can be used for listing decks. At all times, the OFFLINE 
listing facility may be employed. A brief, pamplet, available at 
MACC, details the use of this free, convenient facility. 

F. Variable list 

There follows a listing of the variables used in A8ELMATCHK 
and the purposes for which they are employed. This may prove 
helpful should modification of the program be desired. 


Variable 


Meaning 


A(50,50) 

Abel Area Matrix 

B(50,50) 

Inverse Abel Area Matrix 

C(50,50) 

Matrix product of A and B 

D(5) 

Input buffer to transfer matrices from the 
input file to the A and B arrays 

I 

Row index for the Area Matrix; row index for 
matrix being input 






J 
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Column index for Inverse Area Matrix; index to 
which group of five columns the data in the D 
array should be placed. 

K, Kl, K2, K3 Auxiliary indices used during input of matrices 

Q Allowable product matrix error limit 

XS Name of file containing matrices 

A$ Alphanumeric period (.); used to determine 

syntax of X$ and Z$ 

Z $ @U$E comnand to access matrices in a form 

compatible with BASIC 


G. Modification possibilities 

Depending on the user's predilections, two modifications of 
the file selection procedure may be desired. First, the 
flexibility as to the name of the input file may be superfluous; 
if only one set of Abel Area Matrices i.e. one discharge geometry 
is to be considered at any given time, then the file name 
ABEL*DATA might be "hard-wired" into the program and the question 
as to the file name deleted. The second possibility is to modify 
the program to accept input directly from punched cards. As the 
program stands, one must create a file with the matrices in that 
file before the program is usable. There may be instances v/here 
one wishes to check a card deck that this convention would be 
clumsy. While the author has never had cause to check a card deck 
directly, this extra check-out step may be found desirable by 
other users. It should be noted that if one finds an error in 
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the file immediately after loading the file, the cause of the 
problem is in the card deck, not in the file, 

H. Program listing and sample output 

Appended will be found a listing of ABELMATCHK, and two 
sample runs, one with the default matrix error limit, and the 
other with an error limit that is sliqhtly too restrictive. 

Notice that the program and the matrices were on file prior to 
these two executions, and that the total cost was 68<t at 
overnight rates—this translates to $1.70 at standard batch rates. 
If a run is attempted interactively, it would be wise to have at 
least a $2.00 limit on the run. 
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1 PROGRAM ABELMATCHK 

2 USED FOR CHECKING ABEL AREA MATRICES 

3 1 REM PREPARED BY A. SCHFFLINE UNDER THE DIRECTION OF! 

4 2 REM PROF. JOHN P. WALTERS 

3 3 REM DEPARTMENT OF CHEMISTRY 

4 4 REM UNIVERSITY OF WISCONSIN 

7 S REM MADISON* WISCONSIN 53706 

• 10 DIM A C50 * SO > * b <SO * 50)* C(SO * SO > * D(5 > 

9 15 MAT A-ZER 

10 20 MAT B*ZER 

11 25 MAT C-ZER 

30 PRINT 'WHAT IS THE NAME OF THE INPUT DATA FILE'I 
35 INPUT X* 

37 IF X*- 7 0 7 OR X** 7 -2' THEN X*-'ABEL*DATA.' 

40 A** 7 .' 

45 D-CNTCX6*A*> 

50 IF D*0 THEN 60 ELSE 70 
60 Z*- 7 8USE FILE.*. 7 
65 GO TO 100 

70 Z«*'9USE FILE.* 7 +X»+' . 7 
100 EXEC ZS 

105 OPEN FILE FOR SYMBOLIC INPUT*3 
110 FOR 1*1 TO SO 
120 FOR J*1 TO 10 

130 INPUT FROM 3.*D< 1 > *D<2> .D< 3> *D<4> ,D<3> 

140 K-SFJ-4 
145 K1-54J 
150 FOR K2*K TO K1 
155 K3-K2-K+1 
160 A<I*K2)»D(K3) 

170 NEXT K2 
180 NEXT J 
190 NEXT I 
210 FOR 1*1 TO SO 
220 FOR J-l TO 10 

230 INPUT FROM 3;D<l).D<2)*D<3)*Df4)rD<5) 

240 K>5*J-4 
245 K1*54J 
250 FOR N2*K TO K1 
255 K3*K2-N+1 
260 B<I*K2>*D(K3) 

270 NEXT K2 
280 NEXT J 
290 NEXT I 
295 CL0SE3 
300 MAT C*A*B 

305 INPUT IS ALL0UABLE M * TR *X ERROR'? 

307 IF Q<*0 THEN 0*3.E-8 
310 FOR 1*1 TO 50 
320 FOR J*1 TO SO 

330 IF I*J AND ABS<CCI'J)-l»*a THEN GO TO 360 
340 IF K/J AND ABS(C(Ir J>> . «0 THEN GO TO 360 
330 GO TO 370 

360 PRINT 7 I*'?I,'J*'?J.'C<I»J>* 7 »C<I,J> 

370 NEXT J 
380 NEXT I 
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99 

40 

41 

4 2 


400 'IF NO ERROR PRINTOUTS HAVE BEEN PRINTED' 
410 'THE MATRICES ARE CORRECTLY ON FILE*' 

420 'OTHERWISE CHECK FOR PUNCH ERRORS' 

430 STOP 
99999END 
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••ASIC CMC«!ST*Y*WALTCKS* 

•ASIC A**OaR 21525104 n JUL 7S 

■fllflUPCLilAICag__ 

rum 

jucwg*igyy *i;*s;qr n jvu is. 


•mat is thc nahc or thc input o* r a file? 

•J 

*Lka*ABWCL21i-I»lX. _ .PgfdllLT ^L7g 

I r no error rrintouts have been printed SHOWS MATP.ICES 

1*JL "ATRI&E s ARE CQ RREcTLT Q* f ILFi._ _ , , . ■■■ 

otherwise check r or punch errors A Ht CC/K Kc£ i 


TtNC J I0«17R 


RUN 

-Rtf WMATCHK_2LL2£L*4 lS.JVL.75 


nmat is the name of the Input data file? 

*HA1_IS-ALLOWABLE matrix error?_ 

errho Am/v* 

3«c*l 
la I 
!• I 

Ja 2 

Ja 4 

C ( I • J 1 a 

C(I.JI. 

1.072?S0SE-0« 
S.aasSmi2r»QA 

TOO SMALL 

la 1 

Ja 7 

CtI.Jfa 

-3.1«I4%a7C-08 


!• R 

Ja 4 

CU.JIa 

3.30N*2fRC-aa 


I- s 

Ja • 

ClI.Jta 

_?.22*l 70«E.-0I 


I* * 

Ja IQ 

CU.JIa 

1. ISR4H9E-0A 


fa f 

Ja t* 

CU.JIa 

-i.o-iRAia^c-ca 


_i» IS 

Ja 14 

C I I . J 1 a 

-3*SJS2ai2EiC8 


!• IA 

Ja 17 

CU.JIa 

•3.J5A34J-e-CA 


!• It 

Ja 22 

CU.JIa 

-3.007NNRNE-G8 


*■ 22 

ji 23 

C< t t J). 

_«*L# t7fl?021E-C4_ 


la 12 

33 

CU.JIa 

• N.73N7234E-a8 — 

WvrtST CASE, 

. la IN 

Jm 35 

CU.JIa 

J.*f*4442£-0a 


la as 

Jm 4 1 

Ctt.JIa 

_R.45’fRlOSE'*08 ... 

' s *'- 

|a as 

Ja R4 

CU.JIa 

-3.*f4«iOIE-CA 


la RR 

Ja SO 

CU.JIa 

R.ON3'Os*7E-Ca 

f-C/JX'Z Crr 

_La-JtT 

_Ja. SO_ 

—XU..J1* 

* 112X5 S 3.7 £- G 8 



If MO ERROR PRINTOUTS >**«£ SEE'* PRInTEO 

the matrices are correctly on pile* 
JUlltRMISE_CMECS-£fla_£UKCa_EaAORS_ 


Yimt I 17371 

- m --- : - 

_MNlylC tASIC 21524527 IS JUL TS _ 

•TIM 

_ tota l cost Based on rates for overnioht runs lfllA| 
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IV. Introduction to ABEL3, the Abel Inversion Modeling Program 
A. Phenomena to be modeled 

In writing this program, the inmediate goal was to have the 
ability to model various phenomena important in the observation 
of a plasma discharge. Such processes as emission (both line and 
background), absorption, intensity measurement noise, discharge 
wander, and instrument misalignment were of interest. In addition, 
provision was made for program expansion so that laboratory data 
collection could be carried out simultaneously with discharge 
modeling, and phenomena that have not yet been considered but 
which may be relevant may later be added. The principle 
calculational device used in this modeling is the Abel Inversion 
for converting radial (chemical) views of a discharge to lateral 
(observable) views and vice versa. 

B. Gross program structure 

ABEL3 is designed so that almost any combination of 
phenomena may be studied in a dynamically determined order. This 
requires that all subroutines be written as independently as 
possible and that the results of any computation be available as 
input to any other routine. Thus, the program is written as a 
psnwheel" program with a number of operating subroutines linked 
together by a core routine which directs which subroutine is to 
be executed and what data is to be fed to that routine. Each 
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subroutine contains a number of options as to how the data is to 
be processed. Thus, the program acts as a giant pocket 
calculator, with the core routine providing the "function” buttons 
(analogous to the sine or arctangent keys on a calculator) and 
access to the data, and the subroutines actually processing the 
data. Because of this structure, each subroutine is viewed by the 
core director as simply a place to jump to within the program. 
Various procedures may be added to or deleted from the program 
without in general disturbing any other functions- In various 
sections to follow, the philosophy used in writing the subroutines 
will be discussed, instructions for the use of the program will be 
given, and modification procedures will be outlined. Be sure to 
read the section on rules for writing new subroutines before 
attempting to modify the program—there are only a few rules, but 
ignoring them could lead to incompatibilities between new 
routines and those already written, and conceivably to untimely 
program failure. 

C. Philosophy of modeling 

A three-dimensional discharge is physically a complicated 
phenomenon. Computer modeling of such a discharge is therefore 
also nontrivial. Further, it appears that some of the most 
useful information from a heterogeneous discharge can be 
obtained when some method of data analysis “does not work", 
indicating that new phenomena need to be taken into account. 
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The computer programs for modeling must therefore be written to 
encourage expansion and change, and also be structured to be as 
independent as possible of a particular discharge model. At the 
same time, the program's usage must be comprehensible to a 
variety of users. It is hoped that once the formal structure of 
the program is understood that it will be useable by those who 
have only minimal computer skills. This would be a difficult 
program for a total novice, however. 

The essential skill in using the program is to be able to 
interchange quickly a chemical idea, the functional units (and 
their labels) of the computer program, and the command numbers 
representing the functional units and lables. An example not 
related to spectroscopy will be given. 

There is an orchard and a vineyard. Call the orchard 
farm 1 and the vineyard farm 2. There are two types of nutrition 
(for present purposes): liquid (type 1) and solid (type 2). 

If it was specified that an individual had visited a farm and 
had grape juice, it would be evident that he had visited farm 2 
and had nourishment of type 1. Three things have been interwoven 
in this paragraph: 

(1) An individual visited a farm, bought the liquid 

produced thereon, and in so doing obtained grape juice, 
which he drank (concept). 
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(2) Description may be limited to succinct phrases; by 
stating "farm 2, type 1", and assuming that the item 
within quotes was consumed, the concept in (1) may be 
communicated (labeled functional units). 

(3) 2, 1 (command numbers). 

Again the idea is the same, but stated in its most compact 

form. 

Single digits are used to state a fairly complex thought. 

In summary the sequence was 

English thought -► terse labels numbers . 

By understanding all three, they may be used interchangeably to 
state the same thing. 

In the modeling program, English thought is the mode 
presumed most comfortable for the user (any vernacular language 
will do, however). In English, the user formulates ideas to test. 
By looking over tables provided about the program, he then 
translates from English to terse labels to identify what is to 
be done and upon what data. In the tables, command numbers are 
given. The user inputs these numbers to the computer to control 
program operation. When the computer outputs information, it 
does so as command numbers, terse lables, or, often, both. It 
is expected that use of this documentation will familiarize the 
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user with the available labels for data and operations, and that 
when usage is attempted that the command numbers will be easily 
found. 

There are six core questions which fall into four groups: 

Which Subroutine? 

Which Option? 

Which Profile*? 

Which Ring or Zone? 

The first two groups inquire as to what operation is to be 
performed. The last two groups establish upon which data the 
operation is to be performed. In most instances there are no 
restrictions as to what operations may be performed, in what 
order, or upon what data. In fact, it the user chooses, he may 
alter the program so that new subroutines are added to, or replace, 
old ones; or he may change the labels on the data so that, for 
communications purposes, entirely different data is being 
manipulated. The disjointure between label and substance is the 
heart of the flexibility of the program. 

Another way to view program operation is to think of the data 
as being on a turntable. As various subroutines are called, the 
data is brought to that subroutine, operated on in some way, and 
then returned to the turntable. Thus all data is resident in a 

* Alternative wording: Where's the data that is to be worked on? 
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centra] location, and the user chooses which item is to be 
affected in what manner at what time. In this respect, the 
program is similar to full computer languages with data scratch 
pads such as MINITAB. An analogy might also be drawn to 
quantum mechanics, where subroutines would correspond to 
operators, and data would correspond to wave functions. 

0. Loading and preparing programs for use 

Preparing to model three-dimensional discharges is a somewhat 
lengthy but conceptually simple process. A punched deck of the 
Abel Area Matrices (producible using program AMXINV2 if not on 
hand), the program ABELMATCHK, and the program deck for ABEL3 must 
be available. Instructions for loading the matrices and checking 
them with ABELMATCHK have already been given. The matrices should 
be correctly loaded onto file ABEL*DATA before proceding. 

Program ABEL3 must be loaded via punched cards, and it is 
recommended that two separate runs be performed. The first run 
is used to load the core of the program, and the second is used 
to load the subroutines. Loading is expensive, because as many 
as 1500 cards may be input and that many lines listed. 

There are two distinct program sections. One is the core of 
the program, listed on pages A-2-0-1 through A-2-0-11. This is a 
fully operable block of statements which consists of an 
initialization package, core operating routine for calling up 
the subroutines, and dummy subroutines to prevent undefined 
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operations. While it can perform no calculations relative to 
spatially resolved spectra, it is the hub onto which all 
calculational routines must be attached and may be useful in its 
own right for "playing" with the core commands for familiarization 
with core operation at low cost. The other section of the 
program is the package of functional subroutines,eight in number 
as of this writing. Any or all of them may be appropriate to a 
given problem* and may be loaded as desired. 

There are two distinct types of punched cards. One type, 
called documentation cards, has a "C" in column 1, an asterisk 
(*) in columns 5 and 72, and useful information for program 
operation in columns 7-71. These should NEVER be loaded onto 
the computer, as they would give BASIC a bad and expensive case 
of digital indigestion. The other type of card is a program 
card, which contains information understandable to BASIC. The 
two types of cards are stored in alternating well labeled blocks 
in an order close to that in the program listing. 

The remainder of the loading procedure described is designed 
to be as direct as possible for the user; there are less 
expensive ways to do the job but none simpler. 

For the first run, three cards must be punched by the user. 
These are (1) a RUN card, (2) a PASS word card, and (3) a FIN 
card. The last of these is the simplest—starting in column 1 
the card is punched 
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@FIN 

The $FIN is the very last card in the deck. The password card is 
punched to employ the individual user's batch password. If no 
batch runs have previously been made by the user, this card will 
set the password. Suppose the password is "spark" (no more than 
six letters are allowed). Then the password card would read, 
starting in column 1, 

@PASS SPARK 

This may be placed anywhere in the deck, but is most easily kept 
track of if it is the second card in the deck. 

The RUN card is also specific to an individual and project 
and is the first card in the deck. Presume the user's initials 
are AS, the project number is 2231 and his student or staff ID 
number is 1893602639. Then the RUN card, starting in column 1, 
should be: 

3RUN/R AS,2231,1893602639,$20.00,100 

With the three cards prepared, get the three segments of the 
core routine card deck and stack them in order (noting where the 
segments end so the segments may be readily separated later). 





Put the RUN and PASS cards at the front of the deck and the FIN 
card at the end. Load the deck via the service windows in the 
computer center. When the job has run, retrieve the three 
specially punched cards and return the core routine to the card 
drawer. To check that the program has loaded correctly, run the 
following batch run (or the interactive equivalent if desired): 

@RUN (etc.—use card previously punched) 

0BASIC CHEMI STRY*WAITERS. 

OLD:ABEL3 

RUN 

STOP 

BYE 

@FIN 

(all cards start in column 1) 

In looking over the output from this run, after the "run" command 
is printed, a line should appear saying 

BATCH OR TIMESHARE RUN; INPUT 'BATCH' OR 'TIME' OR JOB ABORTS 

If this appears, all is correct and the rest of the program may 
be loaded. If it does not appear, the cause should be evident 
from somewhere in the two listings; get assistance if the problem 
is not readily evident. 

Based on what operations are to be used, choose which 
subroutines are to be loaded (loading more than are necessary 
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adds both storage and execution costs). Take the three specially 
punched cards and sandwich between them the program cards of the 
selected subroutines. One plausible arrangement, dubbed "ABELZ'* 
to distinguish it as a subset of ABEL3 will serve as an example. 
This version will not allow modeling of noise or smoothing effects 
but has all other preprogrammed capabilities. The order of the 
deck would be 


@RUN 

SPASS SPARK 
subroutine 
subroutine 
subroutine 
subroutine 
subroutine 
subroutine 

@FIN 


(as above) 

1 program cards (profile construction) 

2 program cards (radial to lateral conversion) 

4 program cards (shifting; reinitializing) 

5 program cards (lateral to radial conversion) 
6* program cards (output) 

8 program cards (wander modeling) 


Again submit the deck at MACC; again perform the short test 
program and again if the question about BATCH vs. TIMESHARE 

prints out all is in order. Refile the program deck for the next 
user. 

E. Operation strategy 

In this section it will not be of concern how to make 
program ABEL3 perform specific functions nor will usage syntax 
be considered. Rather the general program structure and 


* Parts 6a, 6b, and 6c. 
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PROGRAM ABEL2 " FLOWCHART" 



SPARK WANDER MODELING 


CONFIGURATION 
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operating sequence will be discussed. The approach used is that 
of a "pinwheel” program; that is, instead of executing the 
program in a fixed sequence of operations, the user chooses (with 
only minor restrictions) any arbitrary order of execution he 
desires. After each action has been specified, it is carried out 
and the program requests input as to the next step. The effect, 
as previously mentioned, is that of a Docket calculator. A 
flowchart for one version of the program has already been given. 
After one signs onto the computer and gets into BASIC, the conmands 

0LD:ABEL3 

RUN 

are entered and the initialization routine comes on line. After 
answering several questions related to initialization, the core 
control routine activates for the first time. The user is asked 
six questions which establish exactly what action the program is 
to take. The user tells the computer which subroutine and option 
within that subroutine to execute, what data profiles are involved 
(All data are stored in the "data storage block", and the profile 
numbers tell where within that block the desired data exist.), and 
which specific elements of the data profiles are to be affected 
(as the physical situation is modeled in terms of radial and 
lateral profiles, this specifies the radial rings and lateral 
zones of interest). With this information stowed in the status 
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On the other hand, some output may prompt a change in that sequence 
of operations; the ability to make such "on the fly" changes is one 
of the chief advantages of interactive computing. 

An important feature of the "flowchart" is that there is a 
saction marked “User Additions". ABEL3 need not be considered a 
"finished" program—any given user may wish to add options or 
routines. An entire section of this documentation is devoted to 
modification and addition techniques. As currently configured, 
ABEL3 would be awkward for on-line data collection. However, the 
addition of a brief subroutine would make on-line data collection 
a simple matter indeed (conceivably, one new option could be 
added to a subroutine already in existence). So the general 
strategy for effective use of ABEL3 is "plan ahead, but be light 
on your feet.” 

ABEL3 has certain assumptions concerning the physics of the 
discharge being modeled. The most important assumption is that 
the regions in which emission takes place and the regions in which 
absorption of light takes place are physically separated and that 
all absorption takes place in a cool region outside the hot, 
emitting core. The acronym devised for this model is DREAMS: 
Decoupled Region Emission Absorption Model of the Spark. This 
layered model is a constraint in using the urogram unless (until?) 
a nonsegregated model is programmed. In all matters involving 
noise generation, the noise is assumed to be white noise; this is 
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dictated by BASIC's random number generator function RND which 
produces only white noise. The coordinate system is such that one 
only looks at half of the discharge being modeled, the discharge 
is assumed to be cylindrically symmetrical, and only the right 
half of the discharge is viewed. This roughs out the approach 
taken in using ABEL3. 

F. Types of terminals usable 

ABEL3 was written to be explicitly usable from PEP 801 
terminals and via batch processing. No explicit provision was 
made for running from a teletype (although with a few precautions 
this is possible). Directions will be given for activating the 
batch and PEP operating modes, and suggestions made for modifying 
the program for teletype compatibility. The easiest way to learn 
to use the program is at the PEP terminal; batch processing uses 
a more restricted control code and is not as forgiving of errors. 
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V. Detailed Program Capabilities 


This section of the documentation goes through the individual 
subroutines and lists what capabilities each routine has. As each 
option is given, an example of how it might be used in 
spectroscopic modeling will also appear. The syntactical use of 
the routines is described in Section VII of this documentation. 

A sample run is given in Appendix A-5. 


A. Core routines 

Before modeling may be performed, certain core caoabilities 
must exist in the program. These include: (1) program 
initialization, (2) general control of execution sequencing, 

(3) some means of inputting and doing arithmetic manipulation on 
the data to beused in modeling, and (4) output capabilities so that 
the results of the modeling are readily accessible. Upon starting 
the modeling programs, the initialization routine is entered, 
followed by the general control routine. The data entry and 
manipulation routine is Subroutine Construe (mnemonic for Profile 
Construction), and the output routine is Subroutine Print-Plot. 


!• Initialization. Much of the program initialization 
such as clearing arrays, reading in the Area Matrices, etc. is 
transparent to the user. However, the user does specify several 
important parameters. First, the computer must be informed 
whether a run is being made as a batch run or as an interactive 
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run. The control statement inputs for batch runs are in a more 
compressed form than those for timeshare runs, and input prompts 
are not necessarily supplied in batch mode. If the run is set up 
as a batch run, the user is requested to input a job identification 
statement; this allows for labeling of a run as to its intent, 
date, or some other distinguishing characteristic. 

The user then is asked to set up the noise generation 
facilities of the program in the desired configuration. This 
consists of two questions. First, one must decide whether the 
noise produced should-be from BASIC's standard documentable noise 
sequence or from a nonreproducible (RANDOMIZEd) noise sequence. 

The former method might be chosen if the propagation of noise 
through a series of calculations was to be monitored with the 
computer and checked by hand; the latter method might be 
appropriate if the user wished to insure that the noise pattern 
was truly distinct from all previous noise patterns he had used. 

Next, the basic properties of the discharge to be modeled 
are entered; these are the zone or ring width in microns and the 
number of the last ring in which emission occurs (all higher 
numbered zones are assumed either to have no optical properties 
or to exclusively absorb light). Typical values might be a zone 
width of 50 microns and a "last emission ring" of 25 i.e. rings 
1 to 25 emit light and rings 26 to 50 absorb light. 
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Finally, two flags are set. The first is the "transmittance 
profile protection" flag. It is normally turned on and prevents 
the user from attempting to do the Abel Inversion on absorption 
data unless the backlight intensity was set before the absorption 
data were calculated. If one were modeling spark wander, the user 
might want to turn the flag off; in general it should be left on. 
An aside is necessary before explaining the setting of the last 
flag: There are 19 different labeled profiles in the Abel 
modeling programs. The label on Profile 1 is "User Constructed 
Radial Emission Profile" and the label on Profile 2 is "User 
Constructed Radial Absorption Profile". Often, one desires to 
use data from Profile 1 for those rings which emit and use data 
from Profile 2 for those rings which absorb in a given 
subroutine. As a convenience. Profile 8 may be automatically 
generated as the "User Constructed Emission/Absorption Profile". 
The drawing on the next page illustrates the procedure. End of 
Aside. The last flag set determines whether Profile 8 will be 
automatically generated. This generation only occurs when 
Profiles 1 or 2 are manipulated within Subroutine Construe. It 
has been the author's experience that automatic generation of 
Profile 8 is very handy. 

2. General control routine. There are six items to be 
specified in the core control routine. These are (1) which 
subroutine is to be called; (2) which option within that 








Figure A-3 


Meaning of "Automatic Profile 8 Construction" 
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subroutine is to be executed; (3) which of the 19 possible 
profiles is to be the "major profile" affected by the subroutine; 
(4) which of the profiles will be the "minor profile" affected 
(exact meanings of major and minor vary with the routine and 
option— as each option is listed below, the specific uses of the 
major and minor profiles will be clarified); (5) which zone or 
ring (1 through 50) will be the lowest numbered ring or zone 
affected by the routine being called; and (6) which zone or ring 
(again 1 through 50) will be the highest numbered ring or zone 
affected by the routine being called. The first two items 
specify what operation is to be performed; the last four items 
are used to direct which specific data items are to be so 
affected. 

While it is possible for the user to enter unique commands 
each time he specifies the action the program is to take, default 
control values are also provided (except in the case of choosing 
a subroutine, for which there is no default). Further, a 
procedure is provided for changing the default values if the 
user so chooses. 

The core routine has several alphabetic commands in addition 
to the standard numeric ones. The only one which need be 
mentioned here is the command which terminates program execution 
in a manner compatible with the plot routine. In response to one 
of the core questions, either a letter S or a letter T is entered. 
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Entering the word STOP to halt execution will lead to loss of all 
plot data in most situations, and is to be avoided. 

The use of the control routine can most easily be understood 
by giving examples of subroutines and showing what control values 
might be entered to use these routines. 

3. Subroutine Print-Plot. This subroutine can perform the 
following operations, either singly or in any combination: 

(a) print out the data input in the major profile along with the 
base ten logarithm of that data (the value -12345. being printed 
for each input data point that equals zero); (b) plot the input 
data instantaneously in rough form using a modified version of 
MINI-PLOT,-D. T. Stueland's BASIC plotting program; or (c) plot 
the input data using D. T. Stueland's PEPSUB (all PEPSUB drawn 
plots appear at the end of the program run). Print-Plot is 
subroutine number 6, and the major profile specified is the 
profile containing the data to be output. Any profile may be 
specified for the minor profile; it is totally ignored in this 
routine. Output consists of those elements of the major 
profile falling between and including the lower and upper 
zone/ring limits specified in the control routine calling sequence. 

A complete listing of the options for Print-Plot appears on 
the next page: 



Option 

Number 


Function 


1 

2 

3 

10 

11 

12 

13 


Plot using MINIPLOT 
Plot using PEPSUB 

Plot, first with MINIPLOT, the with PEPSUB 
Print out data 

Print out data, then plot using MINIPLOT 

J 

Print out data, then plot using PEPSUB 

Print out data, then plot using MINIPLOT, then plot 
using PEPSUB 


The pattern that is evident in the option numbers above is not 
accidental* Note that there are essentially three options: 
option 1 plots using MINIPLOT, option 2 plots using PEPSUB, and 
option 10 prints out data. By adding various option numbers 
together, one can get various combinations of options; option 13 
can be thought of as option 10 plus option 3. This type of 
option combination is used in various other subroutines and 
should be useful as a mnemonic for recalling the meaning of 
options* 

The user exercises little direct control over the drawing of 
plots; all of PEPSUB's and MINIPLOT's options including axis 
label ing, title assignment, and plot symbol and dash code 
assignment have been "hardwired". From the major profile number, 
the program looks in a table of alphanumeric variables for the 
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correct labels, title, etc. This table may be changed as 
described in Section VIII. While the complete hardwiring removes 
some plotting flexibility, it speeds and eases program 
utilization. 

There are several questions which the plotting routines 
request the user to answer, however. If one is plotting both 
emission region data and absorption region data, the routine 
asks if the user wants to plot both types of data with the same 
scale on the vertical axis (in general the answer is no— 
absorption values may run from 0.00 to 2.0 or 3.0, while 
intensity values may run in the thousands). Additionally, the 
user may specify if a different symbol should be used for plotting 
the data corresponding to the absorption region than should be 
used for plotting the emission region data. In all cases when 
MIN I PLOT is entered and/or when PEPSUB is entered, the user is 
requested to supply a "plot status". The most useful answers 
are NEW, OVERLAY, and ABORT. A NEW plot sets up a new set of 
axes, titles, labels, etc. and plots the input data. An OVERLAY 
plot plots the input data on top of the previous plot. MIN I PLOT 
and PEPSUB run independently, so that one may use either status 
of plot in either routine within the same call to Subroutine 
Print-Plot. ABORT prevents plotting and sends the user directly 
back to the core control routine. Other less frequently used 
responses are discussed in Section VI. PEPSUB produced plots 
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are obtained by properly terminating the program from the core 
control routine (entering I or S in response to any of the core 
questions instead of a number—this too is discussed in 
Section VII). 

As with all the subroutines, an appendix is provided 
summarizing the capabilities of Subroutine Print-Plot. As noted 
there, the default option is option 11 and the default major 
profile (i.e. the default profile to be output) is profile 6, the 
computed emission/absorption profile. The minor profile is 
inmaterial in this case, and the default ring/zone values are as 
given for all the subroutines (see Section VII for details). 

4. Subroutine Construe. Being capable of outputting 
profiles is of little benefit if there is no information in the 
computer which needs to be output. The subroutine which allows 
one to enter data into the Abel modeling program is Subroutine 
Construe. Construe allows one to perform 15 different mechanical 
manipulations on the numbers contained in any numbered profile 
(or profiles as the case may be). These operations may be 
grouped as follows: (a) to whatever contents are in a given 
profile when Construe is called, add some additional numerical 
values corresponding to various conceivable line shape profiles. 
Such profiles might be Gaussian (either on or off axis), 
homogeneous (same value added to the contents of each element of 
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the profile), or ellipsoidal (added values fall off from a 
maximum on axis to zero in some user chosen ring or zone). 

(b) Modify in toto or in part the contents of the chosen profile 
by Inputting directly from the computer terminal values to be 
inserted in various rings or zones of the profile, scale factors 
to be applied to various locations, or additional numerical 
amounts to be added to the contents of the profile, (c) Combine 
the major and minor profiles in various ways, either adding them 
together, subtacting one from the other, or cross-multiplying 
them (as in a convolution), (d) In addition to any other option 
specified, set the contents of the major profile to zero prior 
to executing the other specified operations. 

A list will now be given of each of the options. Following 
this list, some description and illustration will be given of the 
effect of choosing various options; it is recommended that the . 
beginning user "play" with Construe in combination with Print-Plot 
and the control routine until he is comfortable with these 
routines prior to using the other routines in the program. 
Horizontal lines indicate groups of options which may 
conceptually be grouped together. 

"Canned" profile construction 

1 To whatever is in the major profile, add on on-axis Gaussian 
profile with amplitude and half-width at half-height as 
determined by the user. 
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2 Same as option 1, except that the Gaussian is an off-axis 
Gaussian centered in whatever ring or zone the user chooses. 

3 Same as option T, except that an ellipsoidal profile falling 
to zero in the zone or ring the user chooses is substituted 
for the Gaussian profile. 

4 Same as option 1, except that a homogeneous profile is 
constructed. 

User Direct Input Profile Construction 


Input directly the values 

6 Input directly the values 

desired for specified 

desired sequentially for 

rings or zones within the 

all rings or zones within 

bounds allowed by the 

the bounds allowed by the 

ring max. and min. as 

ring max. and min. as 

given in the control 

given in the control 

routine. 

routine. 

Input a scale factor to 

8 Sequentially enter scale 

be applied to 

factors to be applied to 

individually selected 

each zone or ring within 

rings or zones within the 

the bounds set in the 

bounds set in the control 

control routine. 

routine. 
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9 Input a number to be added 10 For each zone or ring 
to the value already within the bounds set in 

present in a specified the control routine, 

ring or zone. input a number to be 

added to whatever is 
already present in the 


profile. 

Note: For options 1 through 10, only the major profile is 

affected* so far as user control is concerned. In addition. 

Prowls 5 is "hard-wired" as an internal scratch register. 

Additional Profile Manipulation 

11 Add, in a zone-for-zone or ring-for-ring fashion, the 
contents of the minor profile to the contents of the major 
profile. The resultant is stored in the major profile; the 
minor profile is unaffected. 

12 Subtract, in a zone-for-zone or ring-for-ring fashion, the 
contents of the minor profile from the contents of the major 
profile. The resultant is stored in the major profile and 
again there is no net effect on the minor profile. 

13 Input a single scale factor to be used on each element of 
the major profile. This is equivalent to option 8 except 
that one scale factor is applied to all rings or zones 
instead of having to enter one scale factor for each zone 



(option 8 should be used if different scale factors are 
desired for different rings or zones). 

14 Convolute the major profile with the minor profile and 

store the result in the major profile. The minor profile is 
unaffected. The convolution consists of multiplying the 
first element of the major profile by the first element of 
the minor profile, the second element by the second 
element, and so on. 

15-19 Options not used; if attempted, these options will 

generate a diagnostic and return the user to the control 
routine. 

20 Clear the major profile, i.e. set each element (within the 
bounds set by the control routine ring or zone minimum 
and maximum) equal to zero. 

21-34 Identical to 1 through 14, except that the major profile 
is cleared prior to execution of the option. For example, 
option 21 is option 20 (clear profile) followed by option 1 
(add an on-axis Gaussian to the data already resident in 
the major profile). 

Some illustrations are in order. Let us assume that in 
some way (prior calls to Construe actually), profile 1 contains 
a homogeneous profile in rings 10 through 40 inclusive and that 
profile 2 contains an off-axis Gaussian of half-width ten rings 
centered in. ring 25. Diagrams on ensuing pages are designed to show: 
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(a) The effect of executing option 11 on all rings 1 through 
50 with profile 1 the major profile and profile 2 the 
minor profile. 

(b) The effect of executing option 11 only on rings 20 
through 30 with the same major and minor profiles. 

(c) The effect of executing option 31 on rings 20 through 30. 

(d) The effect of executing option 4 on profile 2, all rings 
1 to 50. 

Construe is subroutine number 1; default major profile is 1, 
the user constructed Radial Emission Profile, and the default 
minor profile is number 11, the user constructed Background 
Species distribution. Default option is 4, homogeneous profile 
construction. 

B. Radial/lateral profile conversion routines 

Two subroutines are employed in the program for calculations 
which convert between radial and lateral profiles. Classically, 
conversion from a lateral profile to a radial profile is called 
the Abel Inversion, and so the lateral to radial conversion 
subroutine has been christened Abel. The radial to lateral 
conversion routine, used to take user constructed species 
distributions into theoretically observable lateral profiles, 
is subroutine Forward. In both routines, data is processed only 
for the zones and rings specified; it is thus possible (at times 
intentionally) to calculate profiles while iqnorina relevant data. 
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One may often find that matching physical and calculational 
conditions poses subtle difficulties in these routines 
particularly. 

1. Subroutine Forward. There are six options in this 
subroutine, two of which are simply overrides on the 
emission/absorption boundary set during initialization. There 
are three profiles which behave in special ways in this 
subroutine: 

(3) Except for option 4, output is always to profile 3. 

Tn option 4, output is placed in the input major 
profile. 

(4) In options 1 and 3, profile 4 is hardwired as the 
backlighting source's intensity profile (for 
absorption modeling). If the user has not constructed 
a backlight profile prior to calling Forward, a 
homogeneous backlight profile of intensity 100 in each 
zone is generated and a diagnostic printed. 

(8) In option 1, if profile 8 is the major profile (radial 
emission profile), it is automatically taken as the 
minor profile as well (radial absorption profile), 
overriding the specification of the minor profile in . 
the control routine. 









The options themselves are as follows: 

(1) Convert the input radial emission (major) and radial 
absorption (minor) profiles into a lateral intensity 
profile. Note that only those rings and zones 
specified in the control routine will have any effect 
on the output (or be affected)—thus if the last 
emission ring is 25 and there is absorption in ring 40, 
but the last ring accounted for in the calculations is 
35, only emission calculations will be performed. 

(2) Assuming a pure emission model of the discharge, convert 
the major profile from a radial profile into a lateral 
profile (input data is unaffected; output is to profile 
3). The emission/absorption boundary is observed, so 
that absorption region data is ignored. 

(3) Assuming a pure absorption model of the discharge, 
calculate a radial profile from the input lateral 
profile. Again, the emission/absorption boundary is 
enforced so that only zones and rings outside the 
emission region can be affected. 

(4) The major profile is taken as a lateral intensity 
profile for both input and output; and the minor 
profile is taken as a radial absorption profile. The 
major profile is convoluted with the absorption 
distribution in the minor profile, with the convoluted 
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result replacing the input major profile. There is no 
effect on the absorption region of the major profile. 
This option might be used if a fixed radial 
absorption profile were to be convoluted with various 
lateral .intensity profiles for modeling purposes. 

(12) Same as option 2, except that the emission/absorption 
boundary is ignored. Thus even if the boundary is in 
ring 25, an emission profile extending to zone 50 could 
be modeled. Use of this option would normally prevent 
later use of absorption modeling, although there are no 
internal safety flags to prevent such mixing. 

(13) Same as option 3, except that the emission/absorption 
boundary is ignored. Absorption profiles extending 
within what is nominally the emission region may thus 
be modeled. Note however that this does not allow 
modeling of emission and absorption in the same 
region of space—it simply discards the emission/ 
absorption boundary (for the duration of the option 
execution only) and discards the emission part of the 
model. 

Forward is subroutine number 2. Default major profile is 8 
and default minor profile is 2. The default option is 1. 
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2. Subroutine Abel. The options in this subroutine are 
the inverse of option 1 through 4 in subroutine Forward. Again 
there are several profiles which behave in special ways in this 
subroutine: 

(4) Behaves in the same way that it did in subroutine Forward. 

(6) Hard-wired output profile unless option 2 is used. For 
. option 2, one has the choice of outputting to profile 6 

or profile 7. The label on profile 6 is "Computed 
emission/absorption profile"; on profile 7 the label 
reads “Absorption uncompensated calculated emission 
profile". Aside from label differences, the use of a 
second possible output profile may provide some 
additional usage flexibility. 

(7) See (6) above. 

(15) This is essentially a scratch register, but a very 
handy one; in the process of peeling absorption 
information away from emission information, the lateral 
intensity profile, compensated for absorption effects, 
is calculated and placed in profile 15. While this is 
regarded as simply an intermediate result by the 
subroutine, the user may realize some utility in its 
existence. 

The emission/absorption boundary is employed only in options 
1 and 4 in subroutine Abel; the function which would be served by 
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Invoking that boundary in a modification of options 2 or 3 is 
served by specifying the operating rings and zones in the control 
routine. The options are:. 

(1) Perform a full Abel Inversion on the input profiles, 
assuming emission is occurring in the interior of the 
discharge and that absorption is occurring in the 
surrounding region. The major profile must contain the 
lateral intensity data for both the emission and 
absorption regions of the discharge (the profile in the 
absorption region corresponds to transmittance based on 
the backlight profile). The minor profile is taken as 
the backlight profile (note that this may be different 
than profile 4, in contrast to subroutine Forward where 
the backlight profile is hard-wired as profile 4). 

(2) Invert the major profile assuming emission to be the 
only process occurring in the discharge. The major 
profile is taken as the lateral intensity profile; the 
minor profile is not used. 

(3) Invert the major profile assuming absorption to be the 
only process occurring in the discharge; here the minor 
profile is used as the backlight profile. 

(4) Take the lateral intensity profile in the major profile, 
and assume that the light so observed has passed through 
an absorber whose radial profile is given by the minor 
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profile. Calculate the radial emission profile 
corresponding to these data. The backlight profile 
number is internally set to 4, but this need not be of 
concern as no external affect results. 

Default values in this routine are as follows: major profile 
3, minor profile: 4 (it is suggested that this be used except for 
option 4 on a routine basis). Default option is 1, and Abel is 
subroutine number 5. 

C. Physical effects modeling 

Besides emission and absorption, routines have been written 
to model the effects of noise, data smoothing, spark wander, and 
lateral optical misalignment. The names of these routines are, 
respectively. Noise, Smooth, Wander, and Shift. To use 
subroutine Wander, subroutine Shift must be part of the compile 
program (this was shown in the program flowchart previously). 

The pattern of subroutine structure evident above is continued 
in these routines. In particular, the "trick" of adding ten to 
a previous option to get a slightly modified option number (see 
previous cases in subroutines Construe, Print-Plot, and Forward) 
is used in several places. 

1. Subroutine Noise. Observed lateral profiles may be 
subject to noise froma number of sources, each of which 
produces random data variations related in different ways to the 
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Input data. Subroutine Noise can add noise to input profiles in 
various ways, and in addition stores the noiseless (input) profile 
for later reference. Available options are: 

1 Add noise independent of the data being operated on. The 
user types in the peak-to-peak noise amplitude which is to 
be added to the noiseless data. 

2 Add noise whose amplitude is proportional to the maximum 
value of data in the emission region of the input data 
profile. The user specifies the proportionality constant in 
terms of the signal to noise ratio at that maximum value 
point. 

3 Same as option 2, but the maximum value of the data in the 
absorption region of the input data profile is used in 
place of the point in the emission region. 

4 Add noise proportional to each data point's value. 

14 Add noise proportional to the square root of each data 

point's value. 

24 Add noise proportional to whatever power of the input data 
points the user chooses. 

The major profile contains the noiseless data upon entry 
into the subroutine; after the subroutine has completed its 
work* the major profile contains the now noisy data and the 
minor profile contains the noise free data that was in the major 
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profile when the subroutine was called, flolse is subroutine 
number 3, default major profile is 3, default minor profile is 9, 
and the default option is 2. 

2. Subroutine Smooth. The inverse of adding noise to a 
profile is smoothing the data to attempt to alleviate the noise 
problems. Subroutine Smooth allows the user to smooth the data 
with a “triangular smoothing function" or a three point smooth. 
Only two options are provided: Using option 1, the data is not 
smoothed across the emission/absorption boundary, whereas with 
option 2 the smoothing routine ignores the boundary. In option 1, 
essentially 2 smoothes are conducted; one smoothes only the 
emission data, and the other only the absorption data. Smooth 
is subroutine 7, and the default option is 1. As with the noise 
routine, the unsmoothed data is preserved in the minor profile 
before the major profile is smoothed. The default major profile 
is 3, and the default minor profile is 12. 

3. Subroutine Wander. As its name implies. Subroutine 
Wander models the effects of spark wander in a plane perpendicular 
to the observation system optical axis. It is essentially a 
“front end" routine for Subroutine Shift. The major profile 
(default is 3) is used both to input the data which is to be 
subjected to wander and for output of the final result. The 
minor profile (default is 16) is used for transmitting the input 
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data to Subroutine Shift. Profile 13 is hard-wired into 
Subroutine Shift and at the end of execution of the subroutine 
contains the originally input {major profile) information. 

Profile 17 is an accumulator used to "integrate 1 ' the results 
from each discharge which has "wandered". 

Two options are provided (default option is 1): 

1 Sparks wander in a random fashion, plus or minus at most the 
number of zones chosen by the user. 

2 Spark wander falls within a manifold which peaks on axis and 
falls off as k-(l/x 2 ) on either side of the axis so that no 
sparks fall more than a specified distance from the axis. 

When option 1 is chosen, the random number generator in BASIC 
puts down as many sparks as the user chooses, each spark being 
centered in a random zone within plus or minus the user chosen 
amount with respect to the spark axis. In option 2, a 
preprogrammed symmetrical distribution of the sparks across the 
axis is put down, with most sparks falling near the axis. Note 
that wander is always in a plane perpendicular to the experiment 
reference line, so that depth of field problems are not considered. 
Further, the random number generator produces white noise. It is 
not known whether the model for wander used in this routine bears 
any relationship to actual lab results. 

Wander is subroutine 8. Subroutine Shift must be available 
for cal 1 by Wander for any operation. 
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4. Subroutine Shift. Subroutine Shift, number 4, contains 
two distinct sets of options: Those which shift data back and 
forth within a given profile, and those which allow the user to 
reinitialize portions of the program. The latter will be 
discussed first as they merely provide a conduit to routines 
previously used. 

Option 5 allows almost total reinitialization of the program. 
All numerical arrays and flags are cleared, zone width, flag 
values, and number of emission zones are all reset, and 
essentially the program starts fresh. Not affected are: plot 
output status (no previously made plots are lost), batch versus 
timeshare status, default option and profile numbers, or 
randomization of random numbers. In option 6, only the outermost 
emission ring number is reset, without affecting data already 
computed. Use option 6 with caution! 

The other options, 1 through 3, 11 through 13, and 4 
(grouped by their properties rather than numerically, as will be 
evident shortly), are used to move the data in a profile either 
left or right with respect to the optical /discharge axis in a 
variety of ways. A figure is attached to aid understanding these 
various modes. The option numbers (except 4, described later) 
and diagrams should be surveyed at this point for familiarization. 
The options have been numbered in a way that hopefully displays 
a recognizable set of patterns. The patterns are as follows: 





Figure A-5 
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If a single digit option is used, sections of the profile that 
have been cleared as a result of the shift are refilled, if 
necessary by reflecting data across the central axis of symmetry 
(discharge axis or optical axis). This would be appropriate 
behavior for a lateral profile, as a shift to the right brings 
some portions of the discharge, previously to the left of the 
optical axis, into view. A double digit option does not allow 
reflection or filling. One example of an application for these 
options would be the expansion of a radial atom profile from the 
central discharge axis. Outward migration of the atoms would be 
equivalent to rightward movement of the radial profile. Reflection 
would be inappropriate as the axis does not move; only the atoms 
move with respect to that axis. In any given situation, the 
appropriateness of filling or nonfilling must be determined ”on 
the fly*'. A first approximation might be that lateral profiles 
be operated on with single digit options, and radial profiles be 
operated on with double digit options, but this should not be 
regarded as absolute. 

The option numbers 1 through 3 vary the way in which the 
emission/absorption boundary is considered in the profile shift. 

In options 1 and 11, the boundary is "enforced", that is, no data 
is permitted to shift across the boundary, and the boundary 
remains in its present position. In options 2 and 12, the 
emission/absorption boundary is shifted along with the data. 



Note that this will affect calculations on profiles other than 
the one undergoing the shift. Finally, in options 3 and 13, the 
emission/absorption boundary is ignored during the shift, but is 
still available for calculations elsewhere in the program. Again, 
careful consideration of the physical situation is necessary when 
choosing among these options. It has been the author's 
experience that options 2 and 3 are of most common utility. This 
may be regarded as a starting point, but in no way constitutes 
an absolute instruction. 

The figure showed profiles which were shifted +10 zones, 
i.e. 10 zones to the right. A left shift is indicated as a 
negative shift, for example, -10 zones. In negative shifts, the 
zones emptied by the shift are filled with zeroes in most cases. 

If profile 3 is shifted and the outer zones lie in an absorption 
region, the data in the vacated zones are set to 100, i.e. 100% 
transmission of the backlight profile. 

The remaining description of Shift's operation gets somewhat 
intertwined; to facilitate understanding, the remaining topics 
will be listed. If as each of them is discussed some points seem 
unclear, try reading through the remainder of the discussion and 
then returning to the troublesome point; hopefully additional 
information will have cleared up the problem by then. The topics 
are: uses of profiles, default values, saving unshifted profiles, 
special handling if major profiled, and option 4. 
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In all cases, the major profile is shifted as defined by the 
option number and shift amount. The minor profile, generally 
assumed to be the background intensity profile, is unaffected 
unless the major profile is profile 3. Scratch registers used 
for saving unshifted profiles are 13 and 14; 13 is the only 
profile so used unless the major profile is 3. 

Default option number is 4, default major profile is 3, and 
default minor profile is 10. 

So that errors may be corrected or the preshift data may be 
accessed for any reason, all data is stored in a storage register 
(generally profile 13) prior to being shifted. This data is 
accessible via any routine in the program, but is overwritten 
each time an option 1 through 3 or 11 through 13 in Subroutine 
Shift is executed. Thus, while the data are saved before 
shifting, this saving is volatile, and the user may wish to move 
the saved data to other scratch registers for longer term 
storage. 

If the major profile is profile 3, the lateral intensity 
profile, it is assumed that the background intensity profile 
shifts also, and that a left (negative) shift will expose some 
°f backlight profile directly to the observer. Thus setting 
major profiled invokes shifting of the minor (background) profile, 
with the major profile saved in its unshifted form in profile 13 
and the unshifted minor profile saved in profile 14. If a left 
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shift occurs, the backlight profile, profile 4, has its outer 
zones (the number of such zones being the same as the magnitude 
of the shift) filled with data values 100 so that both 
absorption data in profile 3 and the backlight show 100% 
transmission to be taking place in the outer zones. The unshifted 
backlight profile is not saved. When shifting profiles 
containing absorption data, it is reconmended that a homogeneous 
backlight profile with all data » 100 be used so that the 
shifting process does not introduce insidious unanticipated 
arithmetical errors. 

The last option in Subroutine Shift, option 4, is used to 
"unshift" previously shifted profiles. It actually does two 
things: (1) take whatever data is in the scratch registers for 
saving unshifted data and return these numbers to the major 
profile (major and minor if the major profile is profile 3) and 
(2) restore the emission/absorption boundary to its value just 
prior to the most recent shift. Notice that the backlight 
profile is unaffected by the unshifting, and no actual shift 
computations take place—the contents of one set of registers 
are simply transferred to another set. The resetting of the 
emission/absorption boundary works regardless of which option 
1 through 3, 11 through 13 was used in performing the previous 
shift, but the "depth" of the restoration is only one shift 
operation. For example, if option 2 were executed twice, first 
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with a shift of +2 and then with a shift of + 3 , and then option 4 
were executed, the emission/absorption boundary would end up 
shifted +2 from its initial position. 

D. Program structure and core constraints 

When all eight of the present routines are loaded, there is 
very little extra core space in the Uni vac 1110 computer. To 
remove an unneeded routine to allow insertion of another routine 
or simply to save on execution costs, an appropriate regimen 
should be followed. This will be outlined shortly. Further, if 
new routines are to fit with present software, they should be 
designed to follow the form laid down for the present routines. 

A table is given below stating the names of the various 
routines and the statement number corresponding thereto. NEVER 
Edit Resequence this program! Line numbers are used not only 
because BASIC requires them but also to ease manipulation and 
insertion of subroutines by users. 


Routine Number 

Pinwheel Core; None 

Initialization 

Construe 1 

Forward 2 

Noise 3 


Line Numbers 

1-3500 

4000-5000 

6000-7000 

12000-13000 




Shift 

4 

14000-15000 

Abel 

5 

16000-17000 

Print-Plot 

6 

8000-8900 

Modified Pepsub 


9000-9999 

Modified Miniplot 


10000-10999 

Smooth 

7 

18000-19000 

Wander 

8 

24000-25000 

Termination 

None 

11000-11500 

Service Slave 

None 

15900-15999; 22000-22100 

Routines 



End 

None 

99999 

Available for general use 


23000-24000; 26000-99998 


To delete a given subroutine, determine what line numbers it 
comprises (for example, subroutine Abel, in lines 16000-17000 
could be deleted). Deletion requires two steps: 

(1) Deletion of the lines containing the subroutine, and 

(2) Insertion of a dummy subroutine so that the program 
will still operate. 

Step (1) is accomplished by calling up the program from the disk 
with the file write enabled: 

GBASIC CHEMISTRY*WALTERS//01. 

OLD:ABEL3 


and then DELETEing the appropriate lines: 

EDIT OELETE 16000,17000 

Step (2) Is accomplished using page 0-11 of the program listing. 
Simply type in all lines numbered in the same block of 
statements as those which the deleted routine used to occupy. 
Exampl e: 

16010 Print ‘Subroutine Abel Absent. Load if desired.' 

16035 Return 

Again be sure to use the line number shown or unexpected 
program operation may result. 

Details of how to construct new routines, relabel a profile, 
etc. are given in a separate section. Essentially the rules say 
that a subroutine may operate in any manner at all provided 
parameters are passed from the core routine in a standard manner 
and the data is processed in a flow through (as opposed to dead 
end) fashion. 
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VI. Principles of Subroutine Operation 

The operation of subroutines Forward, Shift, Wander, and 
Abel is described in an article in the open literature 
(A. Scheeline and J. P. Walters, Anal, Chim. Acta , Section on 
Computation and Optimization Techniques, 1 (1), (1977)) and in 
the body of this thesis. The other four subroutines will be 
explained briefly here. 

A. Subroutine Construe 

This routine provides a means for taking profiles and adding, 
subtracting, scaling, or cross-multiplying them. Also, the 
information to be inserted may take one of several functional 
forms in addition to external input. The various options will 
be described in the same groupings as those used V.A.4 above. 

All profiles are contained as rows in a two-dimensional 
array, dimensioned 

V(25,50) 

(The present program only allows use of the first 19 rows.) Thus 
the first index gives the profile nimiber (with labels as listed 
at the top of page 0-2) and the second index gives the ring or 
zone number with 1 being closest to the optical axis or discharge 
center and 50 being farthest away from the axis. If in calling 
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a given subroutine, profile 3 is specified, then the array 
elements which may be affected (subject to possible constraints 
■from other sections of the core setup or called routine) are 

V(3,J), 0=1,50 

1. Canned profile construction. For the four "canned'' 
profiles, the profile information is some function of ring or 
zone number: 

P(J) = f(J) 

For a homogeneous profile, this is just a constant: 

P(J) - K 


whereas for an off-axis Gaussian, it is a complicated function 
of ring/zone index: 

P(J) = Kiexp(-K 2 (J-J 0 ) 2 ) 

where Jo is the ring or zone in which the Gaussian is centered. 

Code for profile construction appears on pages 1-1 and 1-2, 
lines 4105-4225. In general, if K3 is the profile number and 
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f(J) is the function giving profile shape, options 1-4 
perform the following: 

V(K3,J) = V(K3,J) + f(J) 

for all J allowed by the ring/zone limits set in the last two 
questions of the core routine. Note that profile functions f(J) 
are added, not inserted into the profile—option 20 is needed to 
clear out old information when "stacking" of profiles is not 
desired. 

2. User direct input profile construction. Options 5-10 
inclusive allow three operations in two separate modes. The 
operations using notation developed above, are: 

5 and 6: V(K3,J) * [user input number] 

7 and 8: V(K3,J) = [user input number]*V(K3,J) 

9 and 10: V(K3,J) = [user input number] + V(K3,J) . 

The differences in the two modes of operation (odd numbered 
options and even numbered options being the two modes) lies in 
which zones or rings are affected, and in what order. For present 
purposes, assume any ring 1 through 50 may ab initio be processed 
by subroutine Construe (more restrictive processing may be 
specified by the core routine). If an even numbered option is 
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specified, user input concerning every zone 1 through 50 will be 
solicited. Once the option is started, input must be provided 
for all 50 queries. If an odd numbered option is specified, the 
user supplies both the ring/zone number to be affected and the 
necessary data for that zone. Thus only a handfull of zones, in 
arbitrary order, may be adjusted in value. When no more input 
is appropriate, the user specifies impossible input (say zone 55, 
which is outside the program's range) and the core routine is 
recalled. 

3. Other options. Options 11, 12, and 14 allow combination 
of the major and minor profiles. If the major profile is 
profile K3 and the minor profile is profile K4, then (using 
notation similar to that above) option 11 is 

V(K3,J) = V(K3,J) + V(K4,J) for all J , 
option 12 is 


V(K3,J) * V(K3,J) - V(K4,J) , 

and option 14 Is 

V(K3,J) = V(K3,J)*Y(K4,J) . 
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There Is no option for dividing the major profile by the minor 
profile; such an option did not occur to the author until this 
documentation was being written. Perhaps this could be added 
as option 15 at some future date. 

Option 13 allows scaling of an entirely profile by some 
constant. This is similar to options 7 and 8, except that one 
entry scales every ring or zone allowed by the control routine 
instead of requiring separate input for each ring or zone. That 
is, if the input scale factor is 5, then 

V(K3,J) = 5*V(K3,J) . 

Option 20, either alone or in combination with any other 
option, clears the major profile: 

V(K3,J) = 0 . 

Thus to insert an off-axis Gaussian (option 2) into a profile 
already containing other data, the option chosen would be 22— 
® rase the °ld data, then add in an off-axis Gaussian. 

B. Subroutine Print-Plot 

This subroutine consists of four major units: 

(1) Printout routine 

(2) Plot setup routine 
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(3) Miniplot (modified from program written by Dr. D. T. 
Stueland) 

(4) Pepsub (modified from the original verison written 
by Dr. D. T. Stueland). 

For ordinary use, the discussion of this subroutine in Section V 
was sufficient; units (1), (3), and (4) are reasonable 
straightforward. To preserve input data flexibility while 
minimizing required user input, section (2) is fairly involved. 

In fact, future modification of section (2) could conceivably 
present difficult coding problems. 

The printout routine simply takes the input data as defined 
by the profile number and ring/zone limits, applies the appropriate 
labels, and prints out the ring/zone number, data value, and 
base ten logarithm for each datum. To prevent attempts to take 
the log of 0, a check for the datum "0" may override the log 
printout and substitute the number "-12345”, in the log column 
of the output. The whole print routine takes only 18 lines of 
code (page 6-1, lines 27-44). 

MINIPLOT is a version of Dean Stueland's all BASIC ASCII 
character plot routine with all options., save for specifying NEW 
or OVERLAY plots, hardwired, and out of the user's control. Plot 
symbols, labels, and data scaling are all provided by the plot 
setup routine. Similarly, PEPSUB is hardwired. The January 
1975 version of PEPSUB was used as the basis for this routine. 
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PLOT STATUS commands available but infrequently used in 
PEPSUB are: 

LAST 

DONE 

CLOSE 

If LAST is given as the "Plot Status", the data in the major 
profile is plotted, after which no more data may be plotted 
using PEPSUB. CLOSE does not produce any plotted output; it 
simply ends the output of plot data from PEPSUB for the duration 
of the run. These commands may cause difficulty at the end of 
execution; when an S or T command is given the program assumes 
that plotted output may still be produced. One reasonable 
sequence, however, would be in a run from a teletype, where the 
CLOSE command could be executed, and ABE.L3 terminated using 
STOP instead of S or T. Then plotted output would be available 
on file and would not be dumped to the teletype. For full 
details on this, see Appendix A-4. 

DONE not only shuts down plotted output but also shuts down 
ABEL3 and initiates processing of plotted information. Its 
affect is similar to an S or T command in the core routine. 

MINIPLOT and PEPSUB were designed for parallel use. 
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See separate documentation for explanations of these routines if 
desired. A slightly modified version of PEPSU8, available 
9/15/77, could be "hardwired" to replace the version of the 
routine presently employed by ABEL3. This necessitates changes 
In the statements in the 11000-12000 block in addition to 
changes in the 9000-10000 block of instructions. 

The plot setup routine performs a variety of functions. 

Axis labels, titles, and plot symbols are set, and options 
regarding how the absorption region data will be plotted are 
set by the user. The heart of this section, however, is the 
scaling routine which determines the Y axis size and scaling of 
the input data to fit that axis. Scaling is performed to give 
maximum possible magnification and detail to hard copy plot, 
and the user has no control over this scaling (although 
suggestions on how to modify the routine to obtain such control 
are given in VIII A). Both positive and negative data in either 
the emission or absorption region may be input, and correct 
scaling will result. The scale applicable to the emission 
region is the only scale output for a given plot; if different 
scaling is used for the absorption region, that scale must be 
determined from a printout of the data. There is no known way 
to overcome this inconvenience. 

It should be noted that for all plotting the input data is 
'transferred from the input major profile to two arrays labeled 



X and Y. These arrays may be further manipulated by scaling and 
rearrangement so that they should not be used by other routines 
which a user might write. 

To ease the plotting of data where a different symbol is 
employed in the emission and absorption regions, the plot setup 
routine automatically calls each plot routine twice, once to 
plot data from the emission region and once to plot data from 
the absorption region. This involves rearrangement of the X and 
Y arrays which complicated the use of both MINIPLOT and PEPSUB 
from a coding viewpoint. The linkage routines for the 
automatic overlay appear on page 6-3 and 6-4, lines 140-175. 

C. Subroutine Noise 

The effect of this subroutine is to add pseudo-random noise 
to the input profile: 

V(K3,J) = V(K3,J) + noise. 

The BASIC random number generates produces numbers between 0 and 
1. So the various options in the noise routine are used to scale 
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(individual random number minus 0.5 so that the effective noise 
range is ±0.5) to a value appropriate to some given model for 
the noise behavior. 

In option 1, where noise is independent of the data, if the 
noise is assigned a peak-to-peak value T, then 

V(K3,J)(noisy) * V(K3,J)(no noise) + T*(RND-0.5) . 

In options 2 and 3, the noise is based on some peak value in the 
input profile. Take that peak value to be in zone or ring N 
(only data within the ring/zone region specified in the core 
routine is searched for a data maximum). The user specifies a 
signal to noise ratio in that ring or zone of Q. Since T is the 
peak-to-peak value of the noise. 


y. * Q 

T is actually what is sought in setting up noise 
generation 



V(K3,N) 

Q 


From here, the equation used in option 1 may be employed. 
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For the remaining options, noise is related to some power of 
the value of each data point. Option 24 is the general case 
where 

noise a signal* 

where x is a variable. In option 4, x=l (noise proportional 
to signal) and in option 14, x=0.5 (noise proportional to square 
root of signal). In all cases, the user has the choise, of 
scaling noise arbitrarily (as was done in option 1), or based on 
the signal to noise ratio of the point with maximum data value 
over the interval of rings or zones allowed. As options 4 and 14 
simply hardwire the value for the exponent in the noise 
expression, an explanation of the general case will suffice. 

There is no limitation on what the value of the exponent may be. 

When arbitrary scaling ischosen("absolute basis 1 ' in the 
printout from the program) the user chooses a scale factor T and 
in contrast to previous options 

V(K3,J)(noisy) * V(K3,J)(no noise) + T*V(K3,J) X (RND-0.5) . 

T is input directly by the user, x is the power relating signal 
and noise, and (RND-0,5) generates the noise to be scaled. 



523 


When scaling is based on signal to noise ratio at the 
maximum data value, the user inputs the desired S/N, and the 
scale factor T is internally computed. Presume that the highest 
datum (thus the value used to compute T) appears in ring or zone 
Jo • Then 

signal(Jo) = V(K3,J 0 ) (no noise) 
noise(J 0 ) * random factor*! - * V(K3,J 3 ) X . 

Dividing these two equations, 

s V(K3,J 0 ) 

N * random factor* T* V(K3,J 0 ) X * 

Taking the random factor as 1.0, T may be computed to be 

V(K3,J 0 ) 1 ' X 

T * - . 

(S/N) 

S/N is input in statement number 12200, and T is computed in 
statement 12215 (page 3-1), lines 54 and 57 respectively. This 
T is then applied as a scale factor as if it had been input by 
the user in the "arbitrary scaling" option. The S/N scaling 
choice is used to provide a convenient input of an analytically 
common quantity; the program then converts the S/N ratio to a 
computationally simpler form. 
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For example. Figure 15 in "Considerations for Implementing 
Spatially-Resolved Spectroscopy Using the Abel Inversion," 

Anal . Chem. 4J, 1519 (1976) could be produced (in the noise 
generation step) by using option 4 (noise proportional to signal), 
signal to noise scaling, and an optimum S/N of 100, 

D. Subroutine Smooth 

The smoothing routine produces an effect inverse to the 
noise routine—random fluctuations are averaged out of data in 
successive rings or zones. A three point smooth or "rolling 
average” is provided in this routine. Except for the first and 
last rings and zones, the smoothing process is 


V(K3,J) 


smoothed 


rV(K3,J-l) + 2*V(K3,J) + V(K3,J+1)- . 

L 4 J unsmoothed 


so that the smoothed value is the unsmoothed value "tempered" 
with data from adjacent zones. At end points. 


V « 3 " ) U.thed 


rVftC3.Jl» VfK3.J»H- i 
1 2 J unsmoothed 


where J+l applies near a left hand boundary and J-l applies 
to a right hand boundary. 
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VII. Interaction Syntax 

Pages 1-1 through 1-26 show the syntactical details of 
Interaction in the use of program ABEL3. An index appears 
below: 


Item (Subroutine) Starts on Page 


Initialization 

1-1 

Timesharing Core Routine 

1-2 

Batch Mode 

1-3 

Construe 

1-4 

Forward 

1-10 

Noise 

1-13 

Shift 

1-15 

Abel 

1-18 

Print-Plot 

1-20 

Smooth 

1-25 

Mander 

1-26 


Some discussion will be given on the use of the core routine and 
Interaction which is particularly in need of explanation. Most 
of the syntax is intended to be self-explanatory. 

Within the syntactical listing for each subroutine, all 
options are executed in numerical order. In order to generate 
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this listing, several runs were performed and much use of 
subroutine Construe is not shown, even though it was used to set 
up the profiles for use with a particular routine. An appropriate 
way to use this section as a learning aid for the program may be 
as follows: 

(1) Become familiar (through reading previous sections) 
with the capabilities and uses of a given routine. 

(2) Find the item of interest as listed above and the 
explanation of that section given below. 

(3) Read through the syntax. If a troublesome point arises, 
check in the explanation section. 

(4) If a point seems unclear at this stage, run the program 
and watch what happens. 

As of this writing, there is one known program bug, i.e. a 
situation where typing a command does not result in that command 
being executed. In subroutine Print-Plot, when Miniplot is 
called, there is one combination of calling parameters which 
prevents any plot from being produced: If the absorption region 
plot symbol is not distinct AND the absorption region scaling is 
not the same as the emission scaling, then no plot will appear. 

In all other cases (other plot option combinations in Miniplot, 
all combinations to PEPSUB, etc) any typed entry will result 
In either 




. -U-1 
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(a) the desired response, or 

(b) a diagnostic explaining why such a desired response 
cannot be executed. 

There is, to the author's knowledge no combination of responses 
which can •'crash* either the program or the computer due to user 
action. All "Mistakes" are reversible; and if a crash does 
occur, the program (and BASIC if necessary) can always be 

recalled. 

1-1. Initialization 

This will show up automatically after a RUN command. For 
result of entering BATCH instead of TIME to the first question, 
see 1-3. For reinitialization in mid-execution, see 1-17, 
option 5. Note that in reinitializing, the random number 
generator cannot be affected. 

The "last emission ring" is the number of the ring which is 
outermost in the emission region. For a totally emitting model, 
enter 50. For a totally absorbing model, enter 0. Noninteger 
entries are rejected. Negative entries are set to 0, entries 
greater than 50 are set to 50. 

The transnittance profile protection flag (TPPF) prevents 
lateral to radial computation (subroutine 5) unless the lateral 
profile has been computed after the backlight profile was 
produced. If no backlight has been user-initiated, in all cases 
one is provided by default, but if the backlight is changed, the 
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TPPF prevents inversion until the lateral intensity profile is 
brought up to date. For most modeling, having the TPPF "on” is 
a good safety feature to aid in preventing improperly sequenced 
operations. If irregular backlight behavior is to be modeled, 
the TPPF may be turned “off". 

1-2. The top section of the page (to the “Time: 4.950“) is a 
full run where no plots using PEPSUB were generated. Had plots 
been made, the result of "Subroutine number=? S" would be as 
shown at the bottom of the page, and the PEPSUB plot production 
package would be automatically called. 

Commands to the core routine are classifiable into three 
categories: 

(1) Positive integers 

(2) Nonpositive integers 

(3) Literals 

When a positive integer is used, that number becomes the 
command issued, unless overridden by a literal. Thus an option 
number, profile number, etc. may be directly specified. Numerous 
examples may be found on all pages of individual option syntax 
details. 

Nonpositive integers represent default values for answers 
to individual questions. In all cases except subroutine number 
(in which case there is no default), entering 0 gives the default 
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answer to an individual question. The defaults are tabulated for 
each subroutine in the program listing on page 0-5. 

The numeral -1 in response to "Which option?", "Major profile?", 
or "Minor profile?" specifies that whatever option or profile was 
specified for a particular question in the previous call to a 
subroutine is also to be used as the response in the present 
call. This allows one to set up the options for one subroutine, 
use several others, then come back and have the earlier specified 
options ready to go in the first called subroutine without having 
to note what options were used. That is, -1 leaves unchanged an 
earlier answer to a single question, and is subroutine specific. 

In response to "What option?", "Major profile?", or "Minor 
profile?", -2 allows the change of default values from those 
given on page 0-5 to some user chosen value. This value is 
immediately employed in the current subroutine call. 

A default answer to either of the ring/zone number questions 
is equivalent. If a default is given to the "first ring or zone 
number" question, the other ring/zone question is not asked. 

When "0" is entered, all rings or zones of the appropriate 
profiles are involved in the operations of the chosen subroutine 
"-1" specifies the emission region only, and "-2" the absorption 
region only. 

There are five literal commands. The order in which they are 
Interpreted and what they mean is as follows: 


530 


E 


R 


S or T 


D 


If an E appears anywhere in the response to a core 
routine question, the question is reasked. Several 
examples can be found in the sample run, one on page 1-19 
among them. 

This particular subroutine call is being cancelled—go 
back to the first core routine question. This allows 
an escape from any of the six core routine questions. 

See page 1-2. 

Terminates execution and, if appropriate, starts PEPSUB 
plot output. Note: Do NOT terminate a run by typing 
the word STOP; doing so will destroy all plotted data. 

For all subsequent questions, employ the default (0) 
answer. This must be used in conjunction with a 
numeral. An example where subroutine 1 is called with 
all default parameters is shown on page 1-2. A 
related example appears at the top of 1-8. 


1-3. This page details use of Abel3 in batch mode. Mote that a 
run identifier is entered to assist in labeling the output. 
After the identifier is entered, initialization is the same as 
in timeshared mode. Input to all the subroutine is the same in 
timeshared and batch modes. The core routine, however, is 
slightly different in use in the two modes. 

In batch mode, no literal commands may be given. All 
the numerical commands may be used. The six core routine 
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responses are placed on one card in the same order as in 
timeshare mode, with the numbers separated by conrmas. The runs 
shown on page 1-3 are identical to those on page 1-2 except that 
batch mode is employed. Note specifically that a run is 
terminated by entering 

0 , 0 , 0 , 0 , 0,0 . 

To obtain PEPSUB plots produced within a batch run, an interactive 
run at a PEP terminal can be started and the commands entered 

@ASG,A PLOT. 

@ADD,P PLOT. 

See PEPSUB documentation for further details. Particularly note 
comnents about preserving plot information past 4:30 A.M. the 
day following execution. 

Further syntactical details are, in order, the execution of the 
full list of options in the subroutines. For each option call, 
the order is 

(1) core routine calling sequence 

(2) echo of subroutine calling parameters (here defaults 
have been translated into profile numbers, etc.) 

(3) Interaction from execution of the subroutine and option. 
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Comments which may clarify some of this interaction are as 
follows: 

(1) These were run interactively, all output could have 
been obtained in batch mode were this desired. 

1-4. Note use of defaults on ring and zone number 
specifications to obtain desired operating regions. Compare 
affected rings and zones among options 1, 2, and 3. 

1-5 and 1-6. Options 5, 7, and 9: Entry of a ring or zone 
number falling outside the bounds specified in the core routine 
terminates the option. 

1-9. Options numbered up to 34 are available. If the.option 
number is N and H >_ 20, the options executed are option 20 
immediately followed by option N-20. 

1-10. In subroutine 2, if the user has not constructed a 
backlight intensity profile (profile 4) prior to calling the 
subroutine a profile will automatically be generated and a 
diagnostic describing the profile printed. Note that in options 2 
and 3, the emission/absorption boundary serves to limit 
calculational range, i.e. if the boundary is in ring 25, option 2 
is called, and the core routine specifies rings 30-35 for 
computation, no calculations will be performed. In options 12 
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and 13, the boundary is ignored in calculation. This allows 
segregation of absorption and emission effects on line profiles. 

Subroutine 4 option 5 (reinitialization) affects all 
profiles, rings, and zones. Thus input to the last four core 
routine questions can be defaults, or anything else. 

1-18. The Abel Inversion routine, options 2 and 3, ignores the 
emission/absorption boundary, while options 1 and 4 enforce the 
boundary. No reverse analogues to subroutine 2, options 2 and 3, exist. 
Again, calculations affect only the zones or rings specified. 

In option 2, note that there is a choice between putting output 
to profile 6, the computed emission/absorption profile or 
profile 7, the absorption uncompensated emission/absorption 
profile. All other options put output into profile 6. 

1-20 and 1-22. Note what scaling options were used and how 
the plots appear in consequence. A listing of data would be 
necessary to determine what scale is applicable to the absorption 
region in the plot on page 1-22. Due to the bug mentioned 
above, use of a separate plot symbol for the absorption region 
is recommended when using Miniplot. Any combination of plot 
options will work with Pepsub. 

1-23. After entering subroutine number 12, the output line 
should read "Illegal subroutine number. Try again." The line is 
correctinthe program, and the reason for this error is unknown. 
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Output from Pepsub showing the results of calculation in 
subroutine 2, option 1, with 1002 transmittance being full 
scale in the absorption region of the profile, appears on 
page 1-28. 

1-26. In option 2, the "centrally peaked" distribution is 
Indeed very steeply peaked. For maximum zonal wander of five 


zones, the number of sparks 

fired Into each zone is: 

No shift 

36 

±1 zones 

25 (each sign) 

±2 zones 

6 (each sign) 

±3 zones 

2 (each sign) 

±4 zones 

1 (each sign) 

±5 zones 

1 (each sign) 

Total: 

i «t_, ■ 

106 sparks 


Where the number centered in each zone is 


Int(j|) 2 , 

(*• 1)2 , 

M * maximum wander 

N » number of zones displaced from unshifted position 
Int * Integer part of (M/N) 2 . 


N > 1 
N = 0 
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For the maximum allowed wander (±50 zones), this means the 
distribution Is 


No shift 
±1 zone 
±2 zones 
±3 zones 


2601 

2500 (each sign) 
625 (each sign) 
277 (each sign) 


# 

for a total of 10685 sparks with 71% centered in 
the central three zones. 


20*03103 IS OCT 77 


BATCH Oft TIMESHARE RUN! INPUT 'BATCH' OR 'TINE' OR JOB ABORTS 
T TIME 

00 YOU WISH TO RANDOMIZE? 'I' OR 'YES' OR 'Y' IS AFFIRMATIVE. 

MX OTHER RESPONSES ARE NEGATIVE.? N 

HOU MANY RANDOM NUMBERS DO YUU WANT TO SKIP? 4 

WHAT IS SPATIAL ZONE SIZE IN MICRONS? SO 

WHAT IS LAST EMISSION RING* 25 

SHOULD THE TRANSMITTANCE PROFILE PROTECTION FLAG BE ON— 
RECOMMENDED THAT IT BE UN. 

ENTER 'ON' OR 'OFF'YOUR CHOICE? ON 

SHOULD PROFILE 8 BE AUTOMATICALLY CONSTRUCTED? YES 


SUBROUTINE NUMBER*? 1 
WHICH OPTION? 2 
MAJOR PROFILE INVOLVED*? 3E 
MAJOR PROFILE INVOLVED*? 3 
SECONDARY PROFILE INVOLVED*? R 

SUBROUTINE NUMBER*? 1 
WHICH OPTION? **1 
MAJOR PROFILE INVOLVED*? 0 
SECONDARY PROFILE INVOLVED*? -2 

NEW DEFAULT SECONDARY PROFILE NUMBER FOR SUBROUTINE CONSTRUC 
T 19 

FIRST ZONE OR RING NUMBER*? 2 

LAST (OUTER) ZONE OR RING NUMBER*? 20R 

SUBROUTINE NUMBER*? ID 

IN SUBROUTINE CONSTRUC OPTION 4 HILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 30 
PROFILE NUMBERS* 1 19 

YOU ARE CONSTRUCTING AN HOMOGENEOUS U.C. RADIAL EMISSION PROFILE 
WHICH MILL BE ADDED TO THE CURRENT CONTENTS OF THAT PROFILE. 
MAXIMUM RELATIVE EMISSION VALUE IS*? 400 

SUBROUTINE NUMBER*? S 


TIME : 4.930 


> 



SUBROUTINE NUMBER*? S 

FILE HAS BEEN CLOSED 
EXIT FROM BASIC 


BADBtP PLOT. 


TIME t 7.202 


UMIVAC BASIC 20:i0:33 13 OCT 77 
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1-3 


PLEASE? 

>0LDSAB£L3 

>mm 

ABELS 20*13122 13 OCT 77 


BATCH OR TIMESHARE RUN! INPUT 'BATCH' OR .'TINE' OR JOB ABORTS 
T BATCH 

BATCH RUN ACTIVE. 

RUM IDENTIFIER INPUT? DEMORUN ON BATCH MODE 

00 YOU WISH TO RANDOMIZE? 'I' OR 'YES' OR 'Y' IS AFFIRMATIVE. 

ALL OTHER RESPONSES ARE NEGATIVE.? 2 

HOU MANY RANDOM NUMBERS DO YOU UANT TO SKIP‘S 2 

UHAT IS SPATIAL ZONE SIZE IN MICRONS? 50 

WHAT IS LAST EMISSION RING? 2S 

SHOULD THE TRANSMITTANCE PROFILE PROTECTION FLAG BE ON— 
RECOMMENDED THAT IT BE ON. 

ENTER 'ON' OR 'QFF'YOUR CHOICE? ON 

SHOULD PROFILE 8 BE AUTOMATICALLY CONSTRUCTED? YES 


T 1*0,0.0.0.0 

IN SUBROUTINE CONSTRUC OPTION 4 UILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS* I II 

YOU ARE CONSTRUCTING AN HOMOGENEOUS U.C. RADIAL EMISSION PROFILE 
UHICH UILL BE ADDED TO THE CURRENT CONTENTS OF THAT PROFILE. 
MAXIMUM RELATIVE EMISSION VALUE IS*? 400 

? 9»0t0f0»0>0 


TIME * 4.4*7 


> 


0 » 0 » 0 » 0 » 0»0 

FILE HAS BEEN CLOSED 
NO EXIT FROM BASIC 

THIS SHOULD BE THE LAST RETURN FROM THE PEP SUBROUTINE 


TIME * 7.313 


> 


1-4 
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subroutine number*? i 

WHICH OPTION? 1 
MAJOR PROFILE INVOLVED** 1 
SECONDARY PROFILE INVOLVED*? 0 
FIRST ZONE OR RING. NUMBER*? 0 


HI SUBROUTINE CONSTRUC OPTION I MILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS* 1 11 

TOU ARE CONSTRUCTING AN ON-AXIS GAUSSIAN U.C. RADIAL EMISSION 
PROFILE 

WHICH WILL BE ADDED TO THE CURRENT CONTENTS OF THAT PROFILE. 
MAXIMUM RELATIVE EMISSION VALUE IS*'' 400 
GAUSSIAN HALF WIDTH AT HALF HEIGHT? S 

SUBROUTINE NUHBER-? 1 
WHICH OPTION? 2 
MAJOR PROFILE INVOLVED*? 2 
SECONDARY PROFILE INVOLVED*? 0 
FIRST ZONE OR RING NUMBER*? -I 


IN SUBROUTINE CONSTRUC OPTION 2 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 23 
PROFILE NUMBERS* 2 11 

TDU ARE CONSTRUCTING AN OFF-AXIS GAUSSIAN U.C. RADIAL ABSORPTION 

profile 

WHICH WILL BE ADDED TO THE CURRENT CONTENTS OF THAT PROFILE. 
MAXIMUM EPSILON.CONCENTRATION IS-* 10 
GAUSSIAN CENTERED IN ZONE OR RING* IS 
GAUSSIAN HALF UIDTH AT HALF HEIGHT? 5 

SUBROUTINE NUMBER*? 1 
WHICH OPTION* 3 
MAJOR PROFILE INVOLVED*? 3 
SECONDARY PROFILE INVOLVED** 0 
FIRST ZONE OR RING NUMBER*? -2 


HI SUBROUTINE CONSTRUC OPTION 3 WILL BE 

PERFORMED ON RINGS OR ZONES 26 TO 30 

PROFILE NUMBERS* 3 H 

TOU ARE CONSTRUCTING AN ELLIPSOIDAL LATERAL INTENSITY PROFILE 

UMXCH MILL BE ADDED TO THE CURRENT CONTENTS OF THAT PROFILE. 

MAXIMUM OBSERVED INIENSITY IS=* 10O 

OR RING IN WHICH ELLIPSE FALLS TO ZERO? 40 


SUBROUTINE NUMBER*? £ 






SUBROUTINE NUMBER*? 1 

WHICH OPTION? 4 

MAJOR PROFILE INVOLVED-? 4 

SECONDARY PROFILE INVOLVED-** 0 

FIRST ZONE OR RING NUMBER-? 1 

LAST (OUTER) ZONE OR RING NUMBER*? 25 

IN SUBROUTINE CONSTRUC OPTION 4 WILL BE 

PERFORMED ON RINGS OR ZONES I TO 25 

PROFILE NUMBERS- 4 11 

YOU ARE CONSTRUCTING AN HOMOGENEOUS U.C, BACKLIGHT PROFILE 

WHICH WILL BE ADDED TO THE CURRENT CONTENTS OF THAT PROFILE. 

MAXIMUM NON-ABSORBED VALUE IS-? 100 


SUBROUTINE NUMBER-? 1 

WHICH OPTION? 5 

MAJOR PROFILE INVOLVED*? 1 

SECONDARY PROFILE INVOLVED-** 0 

FIRST ZONE OR RING NUMBER*? 1 

LAST (OUTER) ZONE OR RING NUMBER*? 25 

IN SUBROUTINE CONSTRUC OPTION 5 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 25 
PROFILE NUMBERS- 1 11 

YOU HAVE DECIDED TO INPUT SELECTED RELATIVE EMISSION VALUE VALUES 
IH THE U.C. RADIAL EMISSION PROFILE. 

ZONE OR RING*? 4 
VALUE*? 22 
ZONE OR RING-? 17 
VALUE*? 555 
ZONE OR RING-? 3 
VALUE*? 22.279 
ZONE OR RING*? 26 

SUBROUTINE NUMBER*? 1 

WHICH OPTION? 6 

MAJOR PROFILE INVOLVED-? I 

SECONDARY PROFILE INVOLVED-** 0 

FIRST ZONE OR RING NUMBER-? 1 

LAST (OUTER) ZONE OR RING NUMBER-? 5 


IN SUBROUTINE CONSTRUC OPTION 6 WILL BE 

PERFORMED ON RINGS OR ZONES I TO 5 

PROFILE NUMBERS- 1 U 

Y VALUES E DECID£D T ° INPUT ALL POSSIBLE RELATIVE EMISSION VALUE 

IN THE U.C. RADIAL EMISSION PROFILE. 


INPUT 5 VALUES» l PER LINE. 
ZONE OR RING 1 VALUE-? 2 


ZONE OR RING 
ZONE OR RING 
ZONE OR RING 
ZONE OR RING 


VALUE-? 4 
VALUE-? 6 
VALUE-? 8 
VALUE-? 10 


SUBROUTINE NUMBER-? E 
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SUBROUTINE NUMBER-? 1 

WHICH OPTION? 7 

MAJOR PROFILE INVOLVED-? 1 

SECONDARY PROFILE INVOLVED-? 0 

FIRST ZONE OR RING NUMBER-* 1 

LAST (OUTER) ZONE OR RING NUMBER-? 23 

IN SUBROUTINE CONSTRUC OPTION 7 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 25 
PROFILE NUMBERS- 1 11 

YOU HAVE DECIDED TO SCALE SELECTED RELATIVE EMISSION VALUE VALUES 
IH THE U.C. RADIAL EMISSION PROFILE. 

ZONE OR RING-? 13 
VALUE-? 1.5 
ZONE OR RING-? 14 
VALUE-? 1.6 
ZONE OR RING-? 28 

SUBROUTINE NUMBER-? 1 

WHICH OPTION? 8 

MAJOR PROFILE INVOLVED-* 1 

SECONDARY PROFILE INVOLVED*? 0 

FIRST ZONE OR RING NUMBER-* l 

LAST (OUTER) ZONE OR RING NUMBER-? 5 

IH SUBROUTINE CONSTRUC OPTION 8 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 5 
PROFILE NUMBERS- 1 11 

YOU HAVE DECIDED TO SCALE ALL POSSIBLE RELATIVE EMISSION VALUE 
VALUES 

XM THE U.C. RADIAL EMISSION PROFILE. 

INPUT 5 VALUES. 1 PER LINE. 

ZONE OR RING 1 VALUE-* 1.1 
ZONE OR RING 2 VALUE-* 1.2 
ZONE OR RING 3 VALUE*? 1.3 
ZONE OR RING 4 VALUE-* 1.4 
ZONE OR RING 5 VALUE-? 1.5 

SUBROUTINE NUMBER-* 1 

WHICH OPTION? 9 

HAJOR PROFILE INVOLVED-* 1 

SECONDARY PROFILE INVOLVED-* O 

FIRST ZONE OR RING NUMBER-* 1 

LAST (OUTER) ZONE OR RING NUMBER*? 25 

IH SUBROUTINE CONSTRUC OPTION 9 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 25 
PROFILE NUMBERS- 1 H 

J ? 1 £ EC P ED T0 ADD T0 SELECTED RELATIVE EMISSION VALUE VALUES 

IH THE U.C. RADIAL EMISSION PROFILE. 

ZONE OR RING-? 2 
VALUE-? 15 
ZONE OR RING-? -2 
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SUBROUTINE NUMBER*? 1 

WHICH OPTION? 10 

MAJOR PROFILE INVOLVED*? I 

secondary profile invclved*? o 

FIRST ZONE OR R £NU NUMBER** 1 

LAST (OUTER> ZONE OR RING NUMBER-? 23E 

LAST (OUTER) ZONE OR RING NUMBER*? S 


IN SUBROUTINE CONSTRUC OPTION 10 MILL BE 
PERFORMED ON RINGS OR ZONES 1 TO S 
PROFILE NUMBERS- 1 11 

YOU HAVE DECIDED TO ADD TO ALL POSSIBLE RELATIVE EMISSION VALUE 
VALUES 

IN THE U.C. RADIAL EMISSION PROFILE* 

INPUT 5 VALUES' 1 PER LINE. 

OR RING 1 VALUE-? 3 


ZONE OR RING 
ZONE OR RING 
ZONE OR RING 
I OR RING 


VALUE 

VALUE< 

VALUE-? 

VALUE*? 


SUBROUTINE NUMBER*? 11 

ILLEGAL SUBROUTINE NUMBER. TRY AGAIN. 

SUBROUTINE NUMBER*? 1 

WHICH OPTION? 11 

MAJOR PROFILE INVOLVED-? 1 

SECONDARY PROFILE INVOLVED*? 2 

FIRST ZONE OR RING NUMBER*? 0 


IN SUBROUTINE CONSTRUC OPTION 11 MILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS- 1 2 

OVER THE APPLICABLE ZONES OR RINGS' THE POSITIVE U.C. RADIAL ABSORPTION 
PROFILE 

MILL BE ADDED TO THE U.C. RADIAL EMISSION PROFILE. 

THE RESULT IS STORED IN PROFILE 1 ' THE U.C. RADIAL EMISSION 
PROFILE 

. THE UNCHANGED PROFILE IS NUMBER 2 * 

SUBROUTINE NUMBER*? 1 
WHICH OPTION? 12 
MAJOR PROFILE INVOLVED** 1 
SECONDARY PROFILE INVOLVED*? 2 
FIRST ZONE OR RING NUMBER-? O 

IN SUBROUTINE CONSTRUC OPTION 12 MILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS- 1 2 

OVER THE APPLICABLE ZONES OR RINGS' THE NEGATIVE U.C. RADIAL ABSORPTION 
PROFILE 

WILL BE ADDED TO THE U.C. RADIAL EMISSION PROFILE. 

THE RESULT IS STORED IN PROFILE 1 * THE U.C. RADIAL EMISSION 
PROFILE 

THE UNCHANGED PROFILE IS NUMBER 2 . 


SUBROUTINE NUMBER*? E 
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SUBROUTINE NUMBER*? 1 
WHICH OPTION? 13 
MAJOR PROFILE INVOLVED*? 1 
SECONDARY PROFILE INVOLVED*? OD 

IN SUBROUTINE CONSTRUC OPTION 13 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 

C8STS5 SCAlInG EVERY APPLICABLE POINT IN THE U.C. RADIAL EMISSION 
PROFILE 

BY WHATEVER VALUE YOU INPUT. 

WHAT IS THE SCALE FACTOR? 3.14139 


SUBROUTINE NUMBER-? 1 
WHICH OPTION? 14 
MAJOR PROFILE INVOLVED*? 1 
SECONDARY PROFILE INVOLVED-? 2 
FIRST ZONE OR RING NUMBER-? 0 


IN SUBROUTINE CONSTRUC OPTION 14 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS- 1 3 

PROFILE 1 » THE U.C. RADIAL EMISSION PROFILE 

WILL BE CROSS-MULTIPLIED UXTH PROFILE 2 f „ 

THE U.C. RADIAL ABSORPTION PROFILE. THE RESULTS ARE IN PROFILE 

1 . 


SUBROUTINE NUMBER-? 1 
WHICH OPTION? 20 
MAJOR PROFILE INVOLVED-? 1 
SECONDARY PROFILE INVOLVED*? OD 


IN SUBROUTINE CONSTRUC OPTION 20 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS- 1 11 

PROFILE 1 . THE U.C. RADIAL EMISSION PROFILE IS BEING CLEARED 
PROM ZONE OR RING NUMBER 1 TO ZONE OR RING NUMBER SO . 


SUBROUTINE NUMBER-? 1 
WHICH OPTION? 21 
HAJOR PROFILE INVOLVED*? 1 
SECONDARY PROFILE INVOLVED*? OD 

IN SUBROUTINE CONSTRUC OPTION 21 HILL BE 

PERFORMED ON RINGS OR ZONES 1 TO 50 

PROFILE NUMBERS- 1 11 

PROFILE 1 » THE U.C. RADIAL EMISSION PROFILE IS BEING CLEARED 

FROM ZONE OR RING NUMBER 1 TO ZONE OR RING NUMBER SO . 

YOU ARE CONSTRUCTING AN ON-AXIS GAUSSIAN U.C. RADIAL EMISSION 
PROFILE 

WHICH WILL BE ADDED TO THE CURRENT CONTENTS OF THAT PROFILE. 
MAXIMUM RELATIVE EMISSION VALUE IS-* 1000 
GAUSSIAN HALF UIDTH AT HALF HEIGHT? S 

SUBROUTINE HUMBER*? E 
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SUBROUTINE NUMBER-? 1 
WHICH OPTION? 2 
MAJOR PROFILE INVOLVED-? 2 
SECONDARY PROFILE INVOLVED-? E 
SECONDARY PROFILE INVOLVED-? R 

SUBROUTINE NUMBER-? 1 
WHICH OPTION? 22 
MAJOR PROFILE INVOLVED-* 2 
SECONDARY PROFILE INVOLVED-? OD 

IN SUBROUTINE CONSTRUE OPTION 22 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS- 2 11 

PROFILE 2 * THE U.C. RADIAL ABSORPTION PROFILE IS BEING CLEARED 
FROM ZONE OR RING NUMBER 1 TO ZONE UN RING NUMBER SO . 

YOU ARE CONSTRUCTING AN OFF-AXIS GAUSSIAN U.C. RADIAL ABSORPTION 
PROFILE 

WHICH WILL BE ADDED TO THE CURRENT CONTENTS OF THAT PROFILE. 
MAXIMUM EPSILON.CONCENTRATION IS-? 5 
OAUSSIAN CENTERED IN ZONE OR RING? 30 
GAUSSIAN HALF WIDTH AT HALF HEIGHT? S 


SUBROUTINE NUMBER-? E 
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SUBROUTINE NUMBER-? 2 
WHICH OPTION? 1 
MAJOR PROFILE INVOLVED*? 8 
SECONDARY PROFILE INVOLVED-? OD 


IN SUBROUTINE FORWARD OPTION 1 WILL BE 
PERFORMED ON RINGS OR ZONES t TO 30 
PROFILE NUMBERS* 8 2 

IN FORWARD* PROFILE 8 * THE U.C. EMISSION/ABSORPTION PROFILE 
WAS USED AS AN INPUT RADIAL EMISSION PROFILE. 

IN FORWARD* PROFILE 8 # THE U.C. EMISSION/ABSORPTION PROFILE 
WAS USED AS AN INPUT RADIAL ABSORPTION PROFILE. 

OPERATING LIMITS UERE ZONES AND RINGS 1 TO 30 . 

OPTION I WAS EXECUTED IN FORWARD. 

OPERATION DESCRIPTION: 

COMPLETE RADIAL TO LATERAL EMISSION/ABSORPTION CALCULATION PERFORMED. 


SUBROUTINE NUMBER*? 2 
WHICH OPTION? 2 
MAJOR PROFILE INVOLVED-? 1 
SECONDARY PROFILE INVOLVED*? 2D 

IN SUBROUTINE FORWARD OPTION 2 UILL BE 

PERFORMED ON RINGS OR ZONES 1 TO 30 

PROFILE NUMBERS- 1 2 

IN FORWARD* PROFILE 1 * THE U.C. RADIAL EMISSION PROFILE 

WAS USED AS AN INPUT RADIAL EMISSION PROFILE. 

OPERATING LIMITS WERE ZONES AND RINGS 1 TO 30 . 

OPTION 2 WAS EXECUTED IN FORWARD. 

OPERATION DESCRIPTION: 

RADIAL EMISSION TO LATERAL INTENSITY CALCULATION PERFORMED. 

SUBROUTINE NUMBER-? 2 
WHICH OPTION? 12 
MAJOR PROFILE INVOLVED*? 1 
SECONDARY PROFILE INVOLVED*? 2D 

IN SUBROUTINE FORWARD OPTION 12 UILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS- l 2 

EMISSION/ABSORPTION BOUNDARY AS SET PREVIOUSLY 
WILL BE IGNORED IN FORWARD. 

IN FORWARD* PROFILE l » THE U.C. RADIAL EMISSION PROFILE 
WAS USED AS AN INPUT RADIAL EMISSION PROFILE. 

OPERATING LIMITS WERE ZONES AND RINGS 1 TO 30 . 

OPTION 2 WAS EXECUTED IN FORWARD. 

OPERATION description: 

RADIAL EMISSION TO LATERAL INTENSITY CALCULATION PERFORMED. 


SUBROUTINE NUMBER-? E 



SUBROUTINE NUMBER-? 2 

WHICH OPTION? 3 

MAJOR PROFILE INVOLVED*? 2D 

XN SUBROUTINE FORWARD OPTION 3 WILL BE 

PERFORMED ON RINGS OR ZONES 1 TO 50 

PD^Tl C MUMfiERS* 2 2 

|H FORWARD* PROFILE 2 r THE U.C. RADIAL ABSORPTION PROFILE 

IMS USED AS AN INPUT RADIAL ABSORPTION PROFILE* 

OPERATING LIMITS WERE ZONES AND KINGS 1 TO 50 . 

OPTION 3 WAS EXECUTED IN FORWARD. 

SaSTSaRiSs' TO TRANSMITTANCE profile calculation performed 

SUBROUTINE NUMBER*? 2 
WHICH OPTION? 13 
MAJOR PROFILE INVOLVED*? 1 
SECONDARY PROFILE INVOLVED*? 2D 

IN SUBROUTINE FORWARD OPTION 13 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 50 
PROFILE NUMBERS* 1 2 

EHISSIGN/ABSORPTION BOUNDARY AS SET PREVIOUSLY 
WILL BE IGNORED IN FORWARD. 

IN FORWARD* PROFILE 2 * THE U.C. RADIAL ABSORPTION PROFILE 
WAS USED AS AN INPUT RADIAL ABSORPTION PROFILE. 

OPERATING LIMITS WERE ZONES AND RINUS 1 TO SO . 

OPTION 3 WAS EXECUTED IN FORWARD. 

OPERATION DESCRIPTION: 

RADIAL ABSORPTION TQ TRANSMITTANCE PROFILE CALCULATION PERFORMED 

SUBROUTINE NUMBER*? 2 
WHICH OPTION? A 
MAJOR PROFILE INVOLVED-* 3 
SECONDARY PROFILE INVOLVED*? 2D 

IN SUBROUTINE FORWARD OPTION 4 WILL BE 

PERFORMED ON RINGS OR ZONES 1 TO 50 

PROFILE NUMBERS* 3 2 

IN FORWARD* PROFILE 2 * THE U.C. RADIAL ABSORPTION PROFILE 

WAS USED AS AN INPUT RADIAL ABSORPTION PROFILE. 

OPERATING LIMITS WERE ZONES AND RINGS 1 TO 50 . 

OPTION 4 WAS EXECUTED IN FORWARD. 

OPERATION DESCRIPTION: 

INTENSITY PROFILE IN PROFILE 3 * THE LATERAL INTENSITY PROFILE 
WAS ATTENUATED ASSUMING AN ABSORBER AS DESCRIBED 
XM PROFILE 2 ABOVE. 


SUBROUTINE NUMBER*? E 
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SUBROUTINE NUMBER*? 3 

WHICH OPTION? I 

MAJOR PROFILE INVOLVED-? ID 

IN SUBROUTINE NOISE OPTION 1 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS* 1 9 

THIS IS THE NOISE ADDITION SUBROUTINE. 

PROFILE 1 # THE U.C. RADIAL EMISSION PROFILE 
WILL HAVE NOISE ADDED TO IT AS PER YOUR OPTION CHOICE. 
THE NOISELESS DATA INPUT IS SAVED IN PROFILE 9 t 
THE NOISE SCRATCH REGISTER PROFILE. 

IN NOISE# RINGS OR ZONES 1 TO 50 ARE AFFECTED. 
OPTION 1 WILL BE EXECUTED. 

IN ABSOLUTE UNITS# WHAT IS PEAK-TQ-PEAK NOISE VALUE? 14 

SUBROUTINE NUMBER*? 3 
WHICH OPTION? 2 
MAJOR PROFILE INVOLVED** 1 
SECONDARY PROFILE INVOLVED*? 19 
FIRST ZONE OR RING NUMBER*? 0 

IN SUBROUTINE NOISE OPTION 2 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS- 1 19 

THIS IS THE NOISE ADDITION SUBROUTINE. 

PROFILE 1 # THE U.C. RADIAL EMISSION PROFILE 

WILL. HAVE NOISE ADDED TO IT AS PER YOUR OPTION CHOICE. 

THE NOISELESS DATA INPUT IS SAVED IN PROFILE 19 » 

THE SCRATCH REGISTER B PROFILE. 

IN NOISE# RINGS OR ZONES 1 TO 50 ARE AFFECTED. 
OPTION 2 WILL BE EXECUTED. 

NOISE BASED ON MAXIMUM EMISSION REGION DATA VALUE. 

UHAT IS SIGNAL TO NOISE RATIO AT HIGHEST DATA VALUE? 100 

SUBROUTINE NUMBER-? 3 

WHICH OPTION? 3 

MAJOR PROFILE INVOLVED-? ID 

IN SUBROUTINE NOISE OPTION 3 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS- 1 9 

THIS IS THE NOISE ADDITION SUBROUTINE. 

PROFILE 1 t THE U.C. RADIAL EMISSION PROFILE 

WILL. HAVE NOISE ADDED TO IT AS PER YOUR OPTION CHOICE. 

THE NOISELESS DATA INPUT IS SAVED IN PROFILE 9 # 

THE NOISE SCRATCH REGISTER PROFILE. 

IN NOISE# RINGS OR ZONES t TO SO ARE AFFECTED. 
OPTION 3 WILL BE EXECUTED. 

NOISE BASED ON MAXIMUM ABSORPTION REGION DATA VALUE. 
WHAT IS SIGNAL TO NOISE RATIO AT HIGHEST DATA VALUE? 100 



SUBROUTINE NUMBER*? 3 

WHICH OPTION? 4 

MAJOR PROFILE INVOLVED-? ID 

IR SUBROUTINE NO IS" OPTION 4 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
• profile NUMBERS- I 9 

THIS IS THE NOISE ADDITION SUBROUTINE. 

PROFILE 1 • THE U.C. RADIAL EMISSION PROFILE 
• WU, HAVE NOISE ADDED TO IT AS PER YOUR OPTION CHOICE. 

TOC NOISELESS DATA INPUT IS SAVED IN PROFILE 9 » 

TOE NOISE SCRATCH REGISTER PROFILE. 

TO NOISE, RINGS OR ZONES 1 TO SO ARE AFFECTED. 

OPTION 4 MILL BE EXECUTED. 

SCALING CHOICE. DO YOU WISH TO SCALE NOISE ON AN 
ABSOLUTE BASIS OR ON AN OPTIMUM SIGNAL TO NOISE RATIO BASIS 9 
ENTER <ABS' OR *SN'.? A8S 

NOISE IS PROPORTIONAL TO THE 1 POWER OF THE DATA* 

SCALED BY A FACTOR OF? .01 

SUBROUTINE NUMBER-? 3 

WHICH OPTION? 4 

MAJOR PROFILE INVOLVED-? ID 

IN SUBROUTINE NOISE OPTION 4 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TQ 50 
PROFILE NUMBERS- 1 9 

this is the noise addition subroutine. 

PROFILE 1 * THE U.C. RADIAL EMISSION PROFILE 

IULL HAVE NOISE ADDED TO IT AS PER YOUR OPTION CHOICE. 

KKSHS* DATA INPUT IS SAUED IN PROFILE 9 , 

THE NOISE SCRATCH REGISTER PROFILE. 

IN NOISE* RINGS OR ZONES 1 TO SO ARE AFFECTED. 

OPTION 4 WILL BE EXECUTED. 

SCALING CHOICE. DO YOU WISH TO SCALE NOISE ON AN 
ASCTLUTE BASIS OR ON AN OPTIMUM SIGNAL TO NOISE RATIO BASIS? 
ENTER 'ABS' OR 'SM'.? SN 

•JJJSE IS PROPORTIONAL TO THE 1 POWER OF THE DATA* 

WITH MAXIMUM SIGNAL TO NOISE RATIO? 100 

SUBROUTINE NUMBER-? E 
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SUBROUTINE NUMBER*? 3 

WHICH OPTION? 14 

MAJOR PROFILE INVOLVED*? ID 

in subroutine noise option i4 hill be 

PERFORMED ON RINGS OR ZONES 1 TO 30 
PROFILE NUMBERS- 1 9 

THIS IS THE NOISE ADDITION SUBROUTINE. 

PROFILE 1 * THE U.C. RADIAL EMISSION PROFILE 

HILL HAVE NOISE ADOED TO IT AS PE'R YOUR OPTION CHOICE. 

THE NOISELESS DATA INPUT IS SAVED IN PROFILE 9 * 

THE NOISE SCRATCH REGISTER PROFILE. 

IH NOISE* RINGS OR ZONES 1 TO 50 ARE AFFECTED. 

OPTION 14 WILL BE EXECUTED. 

SCALING CHOICE. DO YOU WISH TO SCALE NOISE ON AN 
ABSOLUTE BASIS OR ON AN OPTIMUM SIGNAL TO NOISE RATIO BASIS? 
ENTER 'ABS' OR 'SN'.? SN 

NOISE IS PROPORTIONAL TO THE .5 POUER OF THE DATA* 

WITH MAXIMUM SIGNAL TO NOISE RATIO? 100 

SUBROUTINE NUMBER*? 3 

WHICH OPTION? 243 

MAJOR PROFILE INVOLVED-? 10 

IH SUBROUTINE NOISE OPTION 245 MILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 50 
PROFILE NUMBERS* 1 9 

ILLEGAL OR INCOMPATIBLE OPTION IN NOISe ROUTINE. 

OPTION 243 UAS CHOSEN. 

IF OPTION 2 OR 3 WERE USED* CHECK FOR THE ABSENCE OF 
EITHER THE EMISSION REGION OR THE ABSORPTION REGION. 

RETURN AND TRY AGAIN. 

SUBROUTINE NUMBER-? 3 

WHICH OPTION? 24 

MAJOR PROFILE INVOLVED*? ID 


IH SUBROUTINE NOISE OPTION 24 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 30 
PROFILE NUMBERS* 1 9 

THIS IS THE NOISE ADDITION SUBROUTINE. 

PROFILE 1 * THE U.C. RAOIAL EMISSION PROFILE 

UILL HAVE NOISE ADDED TO IT AS PER YOUR OPTION CHOICE. 

1£<E NOISELESS DATA INPUT IS SAVED IN PROFILE 9 * 

THE HOISE SCRATCH REGISTER PROFILE. 


IH HOISE* RINGS OR ZONES 1 TO 50 ARE AFFECTED. 

OPTION 24 WILL BE EXECUTED. 

UPON IIHAT POUER OF THE DATA DOES NOISE DEPEND"* 2 
SCALING CHOICE. DO YOU WISH TO SCALE NOISE ON AN 

ENTER U 'ABS? S OR ?sN'VsN^ 1 " 0 " SI ° NAL f ° N0IS£ ftATI ° BASIST 


HOISE IS PROPORTIONAL TO THE 2 POWER OF THE DATA* 
WITH MAXIMUM SIGNAL TO NOISE RATIO? 100 



SUBROUTINE NUMBER*? 4 

WHICH OPTION? 1 

MAJOR PROFILE INVOLVED*? 3D 

IN SUBROUTINE SHIFT OPTION X UILL BE 

PERFORMED ON RINGS OR ZONES X TO SO 

PROFILE NUMBERS* 3 10 

»Y HOU MANY ZONES DO YOU WISH TO SHIFT THE PROFILE? 3 

PROFILE 3 * THE LATERAL INTENSITY PROFILE 

MILL BE SHIFTED 5 RINGS OR ZONES. 

UNSHIFTED PROFILE STORED IN PROFILE NUMBER 13 
EMISSION-ABSORPTION BOUNDARY FIXED AND EMPLOYED. 
BACKLIGHT PROFILE* NUMBER At HAS SEEN SHIFTED. 

PROFILE 10 * THE BACKGROUND INTENSITY PROFILE 
MILL BE SHIFTED 3 RINGS OR ZONES. 

UNSHIFTED PROFILE STORED IN PROFILE NUMBER 14 
EMISSION-ABSORPTION BOUNDARY FIXED AND EMPLOYED. 

SUBROUTINE NUMBER*? 4 
WHICH OPTION? 11 
MAJOR PROFILE. INVOLVED*? 1 
SECONDARY PROFILE INVOLVED*? OD 

IN SUBROUTINE SHIFT OPTION 11 UILL BE 

PERFORMED ON RINGS OR ZONES 1 TO SO 

PROFILE NUMBERS* 1 *0 

BT HOU MANY ZONES DO YOU WISH TO SHIFT THE PROFILE? -5 

PROFILE 1 * THE U.C. RADIAL EMISSION PROFILE 

MILL BE SHIFTED -3 RINGS OR ZONES. 

NO REFLECTION OR BACKFILLING UILL OCCUR. 

UNSHIFTED PROFILE STORED IN PROFILE NUMBER 13 
EMISSION-ABSORPTION BOUNDARY FIXED AND EMPLOYED. 

SUBROUTINE NUMBER*? 4 
WHICH OPTION? 2 
MAJOR PROFILE INVOLVED*? 1 
SECONDARY PROFILE INVOLVED*? OD 

IN SUBROUTINE SHIFT OPTION 2 UILL BE 

PERFORMED ON RINGS OR ZONES 1 TO 30 

PROFILE NUMBERS* 1 10 

BY HOU MANY ZONES DO YOU UISH TO SHIFT THE PROFILE? 3 

PROFILE 1 » THE U.C. RADIAL EMISSION PROFILE 

MILL BE SHIFTED 5 RINGS OR ZONES. 

Ml SHIFTED ALSO. 

UNSHIFTED PROFILE STORED IN PROFILE NUMBER 13 

SUBROUTINE NUMBER*? 4 

WHICH OPTION** 12 

MAJOR PROFILE INVOLVED*? ID 
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XN SUBROUTING SHIFT OPTION 12 UILL BE 
PERFORMED ON RINGS OR ZONES l TO SO 
PROFILE NUMBERS* 1 10 

HOU MANY ZONES DO YOU UISH TO SHIFT THE PROFILE? -5 
PROFILE 1 • THE U.C. RADIAL EMISSION PROFILE 
UILL BE SHIFTED -3 RINGS OR ZONES. 

NO REFLECTION OR BACKFILLING UILL OCCUR. 

M SHIFTED ALSO. 

UNSHIFTED PROFILE STORED IN PROFILE NUMBER 13 

SUBROUTINE NUMBER*? 4 

WHICH OPTION? 3 

MAJOR PROFILE INVOLVED-? ID 

IN SUBROUTINE SHIFT OPTION 3 UILL BE 

PERFORMED ON RINGS OR ZONES 1 TO SO 

PROFILE NUMBERS- 1 10 

»T HOU MANY ZONES DO YOU UISH TO SHIFT THE PROFILE? 5 

PROFILE 1 » THE U.C. RADIAL EMISSION PROFILE 

UILL BE SHIFTED S RINGS OR ZONES. 

Ml IGNORED. 

UNSHIFTED PROFILE STORED IN PROFILE NUMBER 13 

SUBROUTINE NUMBER-? 4 

WHICH OPTION? 13 

MAJOR PROFILE INVOLVED-? ID 

XN SUBROUTINE SHIFT OPTION 13 UILL BE 

PERFORMED ON RINGS OR ZONES 1 TO 50 

PROFILE NUMBERS* 1 10 

BY HOU MANY ZONES DO YOU UISH TO SHIFT THE PROFILE? 2 

PROFILE 1 » THE U.C. RADIAL EMISSION PROFILE 

MILL BE SHIFTED 2 RINGS OR ZONES. 

NO REFLECTION OR BACKFILLING UILL OCCUR. 

Ml IGNORED. 

UNSHIFTED PROFILE STORED IN PROFILE NUMBER 13 

SUBROUTINE NUMBER-? 4 

WHICH OPTION* a 

MAJOR PROFILE INVOLVED-? ID 

XN SUBROUTINE SHIFT OPTION 4 UILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS- 1 10 

UNSHIFT PRESENT PROFILE(S). 

PROFILE 1 » THE U.C. RADIAL EMISSION PROFILE 
XS BEING UNSHIFTEDr AS IS Ml. 

SUBROUTINE NUMBER-? 4 

WHICH OPTION* 4 

MAJOR PROFILE INVOLVED-? 3D 
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IN SUBROUTINE SHIFT OPTION 4 HILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS* 3 10 

UNSHIFT PRESENT PROFILE(S). 

PROFILE 3 * THE LATERAL INTENSITY PROFILE 
IS BEING UNSHIFTED' AS IS Ml. 

PROFILE 10 * THE BACKGROUND INTENSITY PROFILE 
IS BEING UNSHIFTED' AS IS Ml. 

SUBROUTINE NUMBER-? 4 
WHICH OPTION? SD 

IN SUBROUTINE SHIFT OPTION 5 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS* 3 10 

IN SHIFT' RINGS OR ZONES 1 TO 30 ARE AFFECTED. 
REINITIALIZING SYSTEM 

WHAT IS SPATIAL ZONE SIZE IN MICRONS? SO 
WHAT IS LAST EMISSION RING? 2S 

SHOULD THE TRANSMITTANCE PROFILE PROTECTION FLAG BE ON— 
RECOMMENDED THAT IT BE ON. 

ENTER 'ON' OR 'OFF'YOUR CHOICE? ON 

SHOULD PROFILE 8 BE AUTOMATICALLY CONSTRUCTED? YES 

SUBROUTINE NUMBER*? 4 
WHICH OPTION? 6D 

IN SUBROUTINE SHIFT OPTION 6 WILL BE 
PERFORMED ON RINGS OR ZONES l TO SO 
PROFILE NUMBERS* 3 10 

IN SHIFT* RINGS OR ZONES 1 TO SO ARE AFFECTED. 

RESET LAST EMISSION RING NUMBER. 

YOUR CHOICE? 30 

SUBROUTINE NUMBER*? E 
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SUBROUTINE NUMBER*? 5 

WHICH OPTION? 1 

MAJOR PROFILE INVOLVED*? 3D 

IM SUBROUTINE ABEL OPTION 1 WILL BE 

PERFORMED ON RINGS OR ZONES 1 TO 50 

PROFILE NUMBERS* 3 4 

Iff ABEL* RINGS OR ZONES 1 TO 50 ARE AFFECTED. 

THE LATERAL TO RADIAL INVERSION WILL BE PERFORMED. 

PROFILE 3 f THE LATERAL INTENSITY PROFILE 

MILL BE USED AS AN INPUT LATERAL INTENSITY PROFILE. 

PROFILE 4 IS THE BACKLIGHT INTENSITY PROFILE. 

A FULL DREAMS INVERSION WILL BE PERFORMED. 

OUTPUT IS TO PROFILE NUMBER 6 

SUBROUTINE NUMBER*? 5 
WHICH OPTION? 2 
MAJOR PROFILE INVOLVED** 3 
SECONDARY PROFILE INVOLVED*? 0 
FIRST ZONE OR RING NUMBER*? -1 


IM SUBROUTINE ABEL OPTION 2 KILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 30 
PROFILE NUMBERS* 3 4 

IM ABEL* RINGS OR ZONES I TO 30 ARE AFFECTED. 

™E LATERAL TO RADIAL INVERSION WILL BE PERFORMED. 

PROFILE 3 * THE LATERAL INTENSITY PROFILE 

MILL BE USED AS AN INPUT LATERAL INTENSITY PROFILE. 

BE PERFORMED ASSUMING A PURELY EMITTING PROFILE. 
OUTPUT UILL BE TO PROFILE 7 UNLESS YOU INPUT THE NUMERAL 

i !" ** SP0NSE T0 THE NEXT question hark. 

T ABC 

OUTPUT IS TO PROFILE NUMBER 7 


SUBROUTINE NUMBER-? 5 
WHICH OPTION? 3 
MAJOR PROFILE INVOLVED** 3 
SECONDARY PROFILE INVOLVED** O 
FIRST ZONE OR RING NUMBER*? -2 


IM SUBROUTINE ABEL OPTION 3 WILL BE 
PERFORMED ON RINGS OR ZONES 31 TO SO 
PROFILE NUMBERS* 3 A 

IM ABEL* RINGS OR ZONES 31 TO 50 ARE AFF^rjen 
THE LATERAL TO RADIAL INVERSION UILL BE PERFORMED. 
PROFILE 3 * THE LATERAL INTENSITY PROFILE 

USED AN INPUT LATERAL INTENSITY PROFILE. 
PROFILE 4 IS THE BACKLIGHT INTENSITY PROFILE. 

SJ A PURELY ABSORBING PROFILE IS ASSUMED. 
OUTPUT IS TO PROFILE NUMBER 6 


SUBROUTINE NUMBER*? E 
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SUBROUTINE NUMBER*? S 
WHICH OPTION? 4 

major profile involves*-? 6E 

MAJOR PROFILE INVOLVED** 3 
SECONDARY PROFILE INVOLVED*? 2 
FIRST ZONE OR RING NUMBER-* O 


IM SUBROUTINE ABEL OPTION 4 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO SO 
PROFILE NUMBERS* 3 2 

IM ABEL* RINGS OR ZONES 1 TO 50 ARE AFFECTED. 
THE LATERAL TO RADIAL INVERSION WILL BE PERFORMED. 
PROFILE 3 * THE LATERAL INTENSITY PROFILE . 


liXLL BE USED AS AN INPUT LATERAL INTENSITY PROFILE. 
PROFILE 2 > THE U.C. RADIAL ABSORPTION PROFILE 
IS THE ASSUMED RADIAL ABSORPTION DISTRIBUTION. 

THE LATERAL PROFILE OBSERVED IS ASSUMED TO HAVE BEEN 
ATTENUATED BT THE ABSORBER IN PROFILE 2 , 

AND THE CALCULATIONS ARE DONE ACCORDINGLY. 

OUTPUT IS TO PROFILE NUMBER A 


SUBROUTINE NUMBER*? E 
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SUBROUTINE NUMBER*? 6 
WHICH OPTION'* 1 

major profile involved-? 10 

IN SUBROUTINE print-plot OPTION 1 MILL be 
PERFORMED ON RINGS OR ZONES 1 TO 30 
PROFILE NUMBERS- 1 1 

PLOT OPTIONS. SHOULD ABSORPTION REGION'S PLOT SYMBOL BE DISTINCT 
T YES 

PLOT HAS 2 DIFFERENT SYMBOLS. 

SHOULD ABSORPTION REGION BE SCALED THE SAME AS THE EMISSION REGION 
? YES 

D> PLOT STATUS? NEW 
HOME? 1 


U.C. RADIAL EMISSION PROFILE 



s 

4.4E+02+ * * 

2 


: 

x 

s 

4.8E+02+ * t 

2 



SUBROUTINE NUMBER-? E 
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SUBROUTINE NUMBER*? 6 
WHICH OPTION? 2 
MAJOR PROFILE INVOLVED*? 1 
SECONDARY PROFILE INVOLVED'? 0 
FIRST ZONE OR RING NUMBER*? -1 

IN SUBROUTINE PRINT-PLOT OPTION 2 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 30 
PROFILE NUMBERS* 1 1 

A) ENABLE HARD COPT PLOTTING? NO 


PLOT STATUS? NEW 
NORMAL RETURN 


SUBROUTINE NUMBER*'' 6 
WHICH OPTION? 3 
MAJOR PROFILE INVOLVED*? 1 
SECONDARY PROFILE INVOLVED-? OD 

IN SUBROUTINE PRINT-PLOT OPTION 3 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 30 
PROFILE NUMBERS* 1 1 

PLOT OPTIONS* SHOULD ABSORPTION REGION'S PLOT SYMBOL BE DISTINCT 
? YES 

PLOT HAS 2 DIFFERENT SYMBOLS. 

SHOULD ABSORPTION REGION BE SCALED THE SAME AS THE EMISSION REGION 

J» PLOT STATUS? NEE 
*> PLOT STATUS? NEW 
HOME? t 
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U.C* RADIAL. EMISSION PROFILE 


* < 


o.oc+oo+t 

l.OE+OO 
NORMAL RETURN 


1»1E+01 2.1E+01 3.1E+01 

RING NUMBER 


4.1E+01 


3.0E+01 


0> PLOT STATUS? NEW 


NORMAL RETURN 


SUBROUTINE NUMBER*? 6 

WHICH OPTION? 10 

MAJOR PROFILE INVOLVED*? I 

SECONDARY PROFILE INVOLVED*? 0 

FIRST ZONE OR RING NUMBER*? 1 

LAST CQUTER) ZONE OR RING NUMBER*? 10 

XM SUBROUTINE PRINT-PLOT OPTION 10 UILL BE 
PERFORMED ON RINGS OR 'ZONES 1 TO 10 
PROFILE NUMBERS* 1 

HOME? 1 


1 
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PROFILE 1 * THE U.C. RADIAL EMISSION PROFILE IS PRINTED BELOW. 


INDEX 

t 

2 

3 

4 

5 
4 

• 

f 

10 


RELATIVE EMISSION VALUE 
4.3444025 
*.2245042 
10.45301 
34.01322 
42.499993 
103.84314 
149.37333 
237.02843 
348.3473 
499.99998 


LOO V<I,J) 
.43992479 
.94303717 
1.2440472 
1.3430148 
1.79388 
2.0244428 
2.2293432 
2.4099812 
2.3443148 
2.49897 


SUBROUTINE NUMBER*? 12 

L SUBROUTINE NUMBER. TRY AGAIN. 
SUBROUTINE NUMBER*’ E 
SUBROUTINE NUMBER*? 4 
WHICH OPTION? 10 
MAJOR PROFILE INVOLVED-? 1 
SECONDARY PROFILE INVOLVED*? O 
FIRST ZONE OR RING NUMBER*? 1 
LAST (OUTER) ZONE OR RING N(MB£R»? 10 

IN SUBROUTINE PRINT-PLOT OPTION 10 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 10 
PROFILE NUMBERS* 1 1 

HOMEY 




w 
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PROFILE 1 * THE U.C. RADIAL EMISSION PROFILE IS PRINTED BELOU. 

INDEX 

RELATIVE EMISSION VALUE 

LOO V(I»J) 

1 

4.3644023 

.63992474 

.2 

0.2263042 

•96503717 

3 

18.43301 

1.2660672 


34.91322 

1.3430148 


62.499993 

1.79388 

6 

103.84316 

2.0246628 


169.37353 

2.2293632 


237.02845 

2.4099812 


368.5673 

2.5663168 

10 

SUBROUTINE NUMBER*? 6 

WHICH OPTION? 12 

MAJOR PROFILE INVOLVED** 1 
SECONDARY PROFILE INVCLV£D= 

499.99998 

? 0 

2.69897 


FIRST ZONE OR RING NUMBER*? l 
LRST (OUTER) ZONE OR RING NUMBER*? 5 


JM SUBROUTINE PRINT-PLOT OPTION 
PERFORMED ON RINGS OR ZONES 1 
PROFILE NUMBERS* 1 

HOME? 1 


12 WILL BE 
TO 3 

1 


PROFILE 1 » THE U.C. RADIAL EMISSION PROFILE IS PRINTED BELOU. 


INDEX 


RELATIVE EMISSION VALUE 
4. 3444023 
9.2263042 
18.43301 
34.41322 
62.444493 


LOG U(I»J> 
.63942474 
.46303717 
1.2660672 
1.3430148 
1.7438a 


0> PLOT STATUS? NEU 


NORMAL RETURN 


SUBROUTINE NUMBER*? E 
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SUBROUTINE NUMBER*? 7 

WHICH OPTION? I 

MAJOR PROFILE INVOLVED*? ID 

XN SUBROUTINE SMOOTH OPTION 1 WILL BE 

PERFORMED ON RINGS OR ZONES 1 TO 50 

PROFILE NUMBERS* I 12 

PROFILE l ,* THE U-C. RADIAL EMISSION PROFILE 

WILL BE SMOOTHED* USING A TRIANGULAR SMOOTHING FUNCTION. 

IN SMOOTH* RINGS OR ZONES 1 TO 50 ARE AFFECTED. 

THE UNSMOOTHED PROFILE IS STORED IN 

PROFILE 12 * THE SMOOTH SCRATCH REGISTER PROFILE 

SUBROUTINE NUMBER*? 7 

WHICH OPTION? 2 

MAJOR PROFILE INVOLVED*? ID 

IH SUBROUTINE SMOOTH OPTION 2 WILL BE 

PERFORMED ON RINGS OR ZONES 1 TO 50 

PROFILE NUMBERS* 1 12 

PROFILE 1 * THE U.C. RADIAL EMISSION PROFILE 

WILL BE SMOOTHED* USING A TRIANGULAR SMOOTHING FUNCTION. 

IN SMOOTH* RINGS OR ZONES 1 TO 50 ARE AFFECTED. 

THE UNSMOOTHED PROFILE IS STORED IN 

PROFILE 12 . THE SMOOTH SCRATCH REGISTER PROFILE 

EMISSION-ABSORPTION BOUNDARY BEING IGNORED DUE TO OPTION CHOICE. 


SUBROUTINE NUMBER*? E 
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SUBROUTINE NUMBER*? 8 

WHICH OPTION? 1 

MAJOR PROFILE INVOLVED*? ID 

XN SUBROUTINE WANDER OPTION 1 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 50 
PROFILE NUMBERS- 1 

SPARK WILL WANDER RANDOMLY. 

HOU MANY SPARKS DO YOU WANT? 225 
WHAT IS MAXIMUM ZONAL CHANNEL WANDERS 5 
225 SPARKS FIRED? OUTPUT TO PROFILE I 
PREUANDER DATA IN PROFILE 13. 

SUBROUTINE NUMBER*? 8 
WHICH OPTION? 2 
MAJOR PROFILE INVOLVED*? 1 
SECONDARY PROFILE INVOLVED*? 0 
FIRST ZONE OR RING NUMBER*? -1 

IM SUBROUTINE WANDER OPTION 2 WILL BE 
PERFORMED ON RINGS OR ZONES 1 TO 30 
PROFILE NUMBERS 3 1 

HANDER WILL HAVE PEAKED DISTRIBUTION. 
UHAT IS MAXIMUM ZONAL CHANNEL UANDER* 3 
10S SPARKS FIRED? OUTPUT TO PROFILE 1 
PREWANDER DATA IN PROFILE 13. 

SUBROUTINE NUMBER*? E 
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VIII. Modification and Documentation of Additions 

The pinwheel program structure and coranon data bank are 
intended to ease program revision and addition. Below various 
types of modifications are described, along with suggestions 
for documenting these changes. 

A. Single function changes 

An example will be given of a temporary change once made in 
the program. Not only will this serve to document that change 
but also to demonstrate how a small change can be made without 
perturbation of the "canned" version of the program. 

It was desired to plot two sets of data on fixed scales; 
all “radial" data was to be plotted with an ordinate range 0 1000, 
and all "lateral" data with a range 0-0.9. It was decided that 
anything to be construed as lateral data would be plotted using 
profile 3 to contain the data, and all other profiles would be 
considered radial. The changes needed to do this are listed 

below: 

8310 IF K3=3 Then Q6=0.9 else Q6=1000 
8315 Q4=Q6 
8320 Q3=Q5=0 

Scaling 1, thus feral to bo as Intended. and the results a 
seen In Figure 11, Anil- fflMb 35' 15,5 09761 ' 
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B. Changing profile labels 

To change the name associated with a profile 1 through 19, 

the following steps may be taken: 

(1) In statements 57-66, the present profile name may be 
found, and the new name substituted for the old by 
retyping the entire line. Notice the word "profile" 
is not included in the profile name; the program 
supplies this as needed. Further, to obtain plots 
labeled "ring number" on the horizontal axis, one of 
the words “radial", "emission", or "epsilon" must 
appear in the profile name. Otherwise the horizontal 

axis label is "zone number". 

(2) The vertical axis label for each profile is found in 
line numbers 31-40. Again, to change a label, find the 
line containing that label and retype the whole line. 
Single quotes ('word') are needed only when the label 

contains a space- 

(3) A new documentation card should be punched for the table 
on page 0-2 of the program listing. 

(4) Hot,: Changing a profile label Lee not change any 
hardwired use of the profile. Check for hardwiring 
as needed- 
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C. 


Adding new profiles 

Additional profiles nest be added In nonerlcllj sepuentlal 


order. 

(1) If a total of more than 25 profiles will result from 
the addition of new profiles, line 15 must be repunched 
with V redimensioned V(n,50) where n is the tota 


( 2 ) 


(3) 


number of profiles. 

I„ all cases, a title for the profile must be provided 
in a OATA statement (the first added profile's title 
could be placed in line 67) as must a label for the 

vertical plot axis (in line 41 et. seq.). 

The total number of profiles must be given in line 1002 


1002 D2*n 

where n is the total number of profiles for which 
titles and labels exist (n=19 at oresent). 

(4) A documentation card for the table on page 0-2 should 
be made. The format of a documentation card is: 


q column 1 

* column 5 

information columns 7-71 

* column 7Z 

0. Changing subroutine default options and profiles 

While it is possible to change the default options and 
profiles used by a subroutine during execution (by entering "-2 
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in the core routine and then the new desired default as described 

above), a permanent change may be desired. 

(1) To change the default option, the list of defaults in 
lines 123 and 124 may be altered. For example, the 
present default option for subroutine 3 is option 2. 

To change this to option 4, line 123 would be 
repunched to read: 

123 DATA 4,1,4,4,1,11,1 

(2) Default profiles are listed in statements 127 and 128, 
grouped by subroutine. That is, the order of listing 
is: Major profile, subroutine 1; Minor profile, 
subroutine 1; Major profile, subroutine 2-,...; Minor 
profile, subroutine 8. Again, repunching the 
appropriate line changes the defaults. 

(3) Documentation may be updated by punching a new card 
for the table at the bottom of page 0-5. 

E. General labels 

q$( 25) contains a potpourri of alphanumeric labels used by 

the program. At present 23 labels are used. To expand the list, 

be sure that either the total number of Q$(n) entries is less than 

26 or that q$(n) has been redimensioned. Then 

(1) Add the new alphanumerics, staring in line 107. 
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(2) If n is the total number of Q$(n) values, rewrite 
line 1003: 

1003 D3-n 

F. Substitute subroutines 

If a subroutine is written which is functionally different 
than any presently written, it should be assigned a new number and 
worked with as described in Section VIII.G below. However, if a 
routine is written which has a function similar to a previously 
existing routine, the substitute routine may be used 
Interchangeably with the original routine subject to the 
following constraints: 

(1) It should occupy the same statement block as given at 
the bottom of page 0-1. 

(2) Default values as given in lines 123-124 and 127-128 
should be corrected as appropriate. 

(3) The subroutine name should be changed, if appropriate, 
in lines 151-152. 

(4) A modified documentation card, if appropriate, should 
be punched for the table on page 0-5. 

(5) The "Gosub x" statement between lines 1940 and 2080 
must transfer program control to an existent 
statement number. 
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(6) A documentation block, as may be seen at the head of 
each subroutine, should be written (see for example, 
page 1-1). 

6. Writing new subroutines 

It is hoped that the procedure herein outlined is 
sufficiently flexible to allow a wide variety of new routines 
to be added, yet rigid enough that interchangeable ity among 
routines is possible. A procedure for writing subroutine 9 will 
be outlined, with additional conments to allow expansion to an 
indefinitely large number of routines. 

0) Choose a name and subroutine number; the number must 
be sequential with those already in use. Let's dub 
subroutine 9 "Example”. 

(2) Assign the routine a block of statements not given to 
any other routine. Let subroutine 9 occupy the block 
from 26000-28000. 

(3) The first few statements should be (in general) 

26000 Rem Subroutine Example 
26005 Gosub 15930 

Statement 26005 will insure that 

K1 * ■ first ring or zone 
K2 » last ring or zone 
K3 * major profile 
K4 * minor profile 
K5 a option number 
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(4) The subroutine may now be written and a "documentation 
block" prepared describing the routine. 

(5) How the routine may be merged with the program. 

(a) Insert a card in the table on page 0-1 reserving 
the appropriate statement block for the new 
subroutine. 

(b) If the new subroutine is numbered higher than 10, 
see step 8 below. 

(c) In line 124, enter the default option number. 

(d) In line 128, enter the default major and minor 
profile numbers. 

(e) In line 152, enter the new subroutine's name. 

For the case of subroutine 9, line 152 would 
then read 

152 DATA WANDER,EXAMPLE 

(f) Repunch statement 1000 so that D1 is set equal to 
the number of subroutines. In this case, the 
result would be 

1000 Dl®9 

(g) Add a documentation card to the table on page 0-5. 


569 


(h) Append the "On K9..." statement in line 1935 
to read 

1935 On K9 Go to 1940,...,2080,2090 

(i) Add statements for subroutine linkage: 

2090 Gosub 26005 
2095 Go to 1500 

(j) At this point, the BASIC statements may be loaded 
using a run (either batch or timesharing) 
structured as follows: 

@RUN AS,2231 ,1893602639,$10.00 
0PASS word 

0BASIC CHEMISTRY*WALTERS//01. 

0LD:ABEL3 

(new and modified cards) 

REPLACE 

BYE 

0FIN 

(6) Cost saving thoughts: 

(a) When loading new routines, have statements in 
numerically ascending order. 

(b) Several service routines appear on page 0-10. 
They may be used to save core space, as they are 
already employed throughout the program. 

(7) Essential point: NEVER resequence ABEL3. First of 
all, by leaving the sequence as given, line numbers 
have functional significance (9000's are all PEPSUB 




570 


statements, for example). Also for a program this 
large, resequencing is immensely expensive and may 
result in IGDM (i.e. program wipeout) errors. 

(8) If over ten routines are to be used, several additional 
steps are needed for expansion. These are: 

(a) Variables C(n), D(n), F(n), G(n,2), H(n,2), 
L(n,2), and C$(n) must all be redimensioned 
with n > 10. 

(b) Due to an inability to use continuation lines 
in BASIC, a second ON variable GO TO statement 
must be melded in. A plausible method is: 

1933 IF K9 >10 Then 2150 
+ 

2150 K7=K9-10 

2160 On K7 Go to 2170,2180,... 

2170 Gosub 30005 
2175 Go to 1500 

Otherwise, additions would be the same. 
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Appendix A-l 
VARIABLE LIST 


0 * Core or 

initialization 

routines. 

Variable 

Applicable 

Subroutines 

Usage 

A1 

0,2,5 

Zone width in centimeters 

A2 

0,5 

1/A1 

A(50,50) 

0,2,5 

Abel Area Matrix 

B(50,50) 

0,5 

Inverse Abel Matrix 

C(10) 

0 

Default option array 

C$(10) 

0 

Array containing subroutine names 

D1 

0 

Number of subroutines 

02 

0 

Number of labeled profiles 

03 

0 

Number of entries in the Q$(n) array 

0(10) 

0,2 

Array containing options to be fed 
to called routine(s) 

E(6) 

0 

Array for input core routine 
commands 

E$(6) 

0 

Labels for soliciting core routine 
commands 

FOO) 

0-6 

Flags—see listing page 0-2 for 
details 
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Variable 

Applicable 
Subrouti nes 

Usage 

6(10,2) 

0 

Array containing default profile 
information 

H(10,2) 

0,2 

Array containing profile information 
to be fed to called routine 

I 

All 

Loop index 

1$ 

0,4,5 

Scratch alphanumeric variable 

I$(2) 

0 

Batch/timesharing control and 
labeling 

J 

0,2,5 

Loop index 

J1 

0 

Dummy used to read in A and B 
arrays 

KT 

All but 2 

First (inner) ring or zone limit 

K2 

All but 2 

Last (outer) ring or zone limit 

K3 

All but 2 

Major profile number 

K4 

All but 2 

Minor profile number 

JC4 

1 

Used in directing program flow in 
options 5-10 

ICS 

All 

Option number 

ICS 

4 

Number of zones profile is to be 
shifted 


5 

Auxiliary used to keep track of 
profile numbers 


7 

Number of points to be smoothed 


8 

Same as in subroutine 4 
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Variable 

Applicable 

Subroutines 

Usage 

K7 

4 

Profile Into which unshifted profile 
is to be stored 


5 

Output profile number 


8 

Same as subroutine 4 

K8 

0 

Input and array control 


5 

Auxiliary ring number register 

K9 

0 

Subroutine number being called 


5 

Auxiliary ring number register 

L(10,2) 

0,2 

Ring and zone information to be 
passed to called subroutines 

Ml 

All 

Last emission ring number; >0 

M2 

All 

First absorption ring number 

M2 * Ml + 1, £ 51 

M$(25) 

0,1,6 

Description of profile ordinate 

Ml 

2 

First ring and zone number 


3 

Power upon which noise depends 


4 

Auxiliary ring or zone number in 
shift process 

N2 

2 

Last ring and zone number 


4 

Auxiliary ring or zone number in 
shift process 

N3 

2 

Auxiliary ring and zone control 


4 / 

Option control in slave shifting 
routine 
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Variable 


Applicable 

Subroutines Usage 


N4 


N5 


H6 

H7 

N$(25) 

PI 

P2 

P3 


P4 


2 

4 

2 

4 

2 

2 


Auxiliary ring and zone control 

Auxiliary ring or zone number in 
shift process 

Option number 

Auxiliary ring or zone number in 
shift process 

Major profile number 

Minor profile number 


0,1.2,3,6 


8 

8 

8 

8 


Profile name array 

Total number of discharges to be 
used in modeling wander 

Maximum number of zones central 
discharge axis may wander 

Amount of wander for an individual 
discharge; for centrally peaked 
wander, auxiliary for scaling the 
number of discharges having a 
particular degree of wander 

Counter for number of discharges 
used in modeling 


P5 

P6 

P9 

Q 

Q1 

Q2 


8 Option number 

8 Major profile 

8 Scaling parameter for centrally 

peaked wander 

Scratch variable 

Scratch variable 

Scratch variable 


0 

1-4 

0,1,5,6 
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Applicable 
Variable Subroutines 


Usage 


Q3 0,1 

Q3-Q8 6 


Q$ 

Ql$ 

QS(25) 

S 

s$ 

T 

T$ 

V(25,50) 


X,Y, and Z 
variables 


0,6 

6 

0 , 1,6 

3 

6 

3 


0,1,3,4,6 


All 


Scratch variable 

Plot scaling computation and 
control 

Input scratch pad 

Plot option control 

Assorted alphanumeric information 

Maximum profile data value 

Plot scaling control 

Noise scaling variable 

Input scratch variable 

Data profiles—main data bank 

See PEPSUB and MINIPLOT 
documentation; variable meanings 
are identical 


0,6 
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Appendix A-2 
PROGRAM LISTING 


The number before the dash at the top of each page refers 
to the subroutine number. "0" is the core/initialization 
routine. 
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1 C ***********XX*XXX*XXX*XXX*«*XXXX*XX**XXX*XXX***X******XX***X*X*X*X* 

2 C * 

3 C * PROGRAM ABEL3 WRITTEN IN BASIC 

4 C * DOCUMENTED FOR PROGRAM VERSION OF JULY* 1977. 

9 C * 

4 C * PROGRAM ALLOWS MODELING OF THE OBSERVATION OF AN EMITTING OR 

7 C * ABSORBING DISCHARGE WITH CYLINDRICAL SYMMETRY. INCLUDED 

• C * PHENOMENA ARE! EMISSION* ABSORPTION WHICH IS SHATIALLY 

9 CM FARTHER FROM THE SPARK AXIS THAN THE EMISSION* EMITTING 

SO C * CONTINUUM BACKGROUND* SPARK WANDER* NOISE IN THE SIGNAL* AND 

IS C * SMOOTHING OF THE SIGNAL. THE FROGRAM IS SO STRUCTURED AS TO 

52 C * ALLOW ANYONE FAMILIAR WITH BASIC TO ADD HIS OWN IDEAS TO THOSE 

53 C * ALREADY PROGRAMMED. 

54 C * 

15 C * PREPARED BY A. SCHEELINE UNDER THE DIRECTION OF: 

14 C * PROF. JOHN P. WALTERS 

17 C M DEPARTMENT OF CHEMISTRY 

so C * UNIVERSITY OF WISCONSIN 

19 C * MADISON* WISCONSIN 33706 

20 C * 

21 C x*a*xx*xxxxxxx*xxxxxxxxxx*x**«*******xx«xxx************************ 

22 C **JMt*JX**X**XXX*XXXXXX*XXX*XX*XX*«XX**XXX*XXX*:x*XX*«X*X*X***X¥X*X*X* 

23 C * 

24 C * LINE NUMBER ASSIGNMENTS IN PROGRAM ABEL3 

23 C M 0— 1000 DATA AND DIM STATEMENTS. 

24 CM 1000- 1499 FIRST PASS INITIALIZATION. 

27 CM 1300- 3000 PINUHEEL HUB f MAIN CONTROL ROUTINE. 

20 C * 3000- 3300 GENERAL REINITIALIZATION ROUTINE. 

27 C * 4000- 3000 SUBROUTINE CONSTRUC 

30 C * 6000- 7000 SUBROUTINE FORWARD 

31 C * 9000- 8900 SUBROUTINE PRINT-PLOT 

- C * 9000- 9999 PEPSUB (MODIFIED BY HARDWIRING OPTIONS). 

C * 10000-10999 MINI-PLOT (MODIFIED BY HARDWIRING OPTIONS). 

C 9 11000-11300 EXECUTION TERMINATION ROUTINE. 

C * 12000-13000 SUBROUTINE NOISE 

C * 14000-15000 SUBROUTINE SHIFT 

C * 15900-15920 PRINT PROFILE RELATED INFORMATION—SLAVE ROUTINE. 

C * 15930-15960 INTERCONNECT CORE AND SUBROUTINES—SLAVE ROUTINE. 

C * 16000-17000 SUBROUTINE ABEL 

C * 18000-19000 SUBROUTINE SMOOTH 

• C * 22000-22100 SLAVE. ERROR HANDLING ROUTINES. 

C * 24000-25000 SUBROUTINE UANDER 

C * -99999 END STATEMENT. 

C * 

C * ALL OTHER STATEMENT NUMBERS ARE AVAILABLE FOR 

C * NEW AND DIFFERENT SUBROUTINES. 

C * 

C *««******»txxxxx*x»x*xxxxx«xx**x*x:x*x*xxx*xxx«*xx**sx**x*sxx*x«x*xx 
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C * TABLE CORRELATING PROFILE NUMBERS AND MEANINGS* * 

C * 1) USER CONSTRUCTED RADIAL EMISSION PROFILE. 9 

C * 2) USER CONSTRUCTED RADIAL ABSORPTION PROFILE. * 

C * 3) LATERAL INTENSITY PROFILE. 9 

C * 4) BACKLIGHT PROFILE. 9 

C * 3) CONSTRUC SCRATCH REGISTER. 9 

C * A) EMISSION/APSCRPTICN PROFILE CORRESPONDING TO 3) AND 4). * 

C * ASSUMES DREAMS MODEL.' 9 

C * 71 EMISSION PROFILE BASED CM EMISSION MODEL ONLY. 9 

C * 8) USER CONSTRUCTED EHISSION/ABSORPTION RADIAL PROFILE. * 

C * 9) NOISE SCRATCH REGISTER. 9 

C * 10) BACKGROUND INTENSITY DrSTRIBUTION. 9 

C 9 111 BACKGROUND SPECIES DISTRIBUTION. 9 

C * 12) SMOOTH SCRATCH REGISTER. * 

C * 13) SHIFT SCRATCH REGISTER (LATERAL INTENSITY PROFILE). * 

C * 14) SHIFT SCRATCH REGISTER (BACKGROUND INTENSITY PROFILE). 9 

C * 15) ABSORPTION COMPENSATED INTENSITY PROFILE. 9 

C * 14) WANDER SCRATCH REGISTER. 9 

C S 17) WANDER ACCUMULATOR PROFILE. 9 

C * 18) SCRATCH REGISTER a. • 9 

m c * 19) SCRATCH REGISTER B. * 

C * J 

C t*xxxxx*x4xaaaaa*aaa*aaaxaaa***x*x*tx*xaaaaaxaxaxxxxxaaxaaaaatxxaa** 

C J**********************YXxxx***x*xx«xxx*xxxxxxxxx*x*x*xxsx**axxxx*xx 

C * TABLE OF FLAG MEANINGS 9 

C * 1) LAST EMISSION ZONE NUMBER AS SET IN INITIALIZATION. * 

C * 2) ABSORPTION OR EMISSION PROFILE CONSTRUCTED—1-YES. O-NO. X 

C « 3) BACKLIGHT PROFILE CONSTRUCTED—1*YES. O-NO. X 

C * 4) TRANSMITTED INTENSITY CALCULATED SINCE BACKLIGHT PROFILE * 

C « CONSTRUCTED—1=N0. O-TES. X 

C * 5) IF 4-NO. IS IT STILL OK TO DO THE INVERSION—1-YES. O-NO. X 

C * 7) PLOT ENABLE FLAG—I-PLOT. O-AWAIT NEXT PASS. X 

C * 8) SHOULD CONSTRUC AUTOMATICALLY CREATE V(8.I) FROM Vfl.I) AND * 

C t V<2. I>—l—NO. O-YES. X 

C * 9) BATCH VS. TIMESHARE MODE. 1-BATCH. O-TIMESHARE. X 

C * 4) AND 10) ARE CURRENTLY UNASSIGNED. X 

C ***XX******XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX**XXXXXX*XX*XXXXX*XXX 
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0-3 


81 

92 

92 

94 

99 

94 

97 

99 


129 

129 

121 

122 

122 

134 

333 

124 

127 

124 

129 

149 

141 

142 

142 
144 

143 

144 


C ttmtmtitinttttnyymntKtiiittyittvinmmtttimtximtsi 
C * 

C * STARTUP SEQUENCE! DATA FOR DEFAULTS. MATRICES. AND LABELS• 

********t*****************«**t*****a**************t******»*****#*a* 
lO Sift A(50.30)»B<30.30).C<10)»D(10).E(6>»F<10).G<10»2)»H< 10»2> .!*(**) 

13 Bin L(10»2)»M«<23>»N$<25).GS(2S> . V(23.50).Ef<£> .C*( 10 ) 

17 BIH X<53>.Y<55> 

20 WAR-ZERO 
30 REM M* VALUES 

'RELATIVE EMISSION VALUE'.EPSILON.CONCENTRATION 
'OBSERVED INTENSITY 't 'NUN-ABSORBED VALUECONTAINED VALUE' 
'EMISSION/EPSILON.CONC. ' 

'RELATIVE EMISSION VALUE' 

'EMISSION/EPSILON.CONC. ' . 'CONTAINED VALUE' 

'RELATIVE INTENSITY VALUE'.'RELATIVE EMISSION VALUE' 

'CONTAINED VALUE' .' CONTAINED VALUE'.'CONTAINED VALUE' 

'ABSORPTION COMP. INTENSITY' 

'CONTAINED VALUE'»'CONTAINED VALUE' 

CONTAINED VALUE'»'CONTAINED VALUE' 


'U.C. RADIAL EMISSION'.'U.C. RADIAL ABSORPTION' 
'LATERAL INTENSITY'.'U.C. BACKLIGHT' 

'SCRATCH REGISTER'.'COMPUTED EMISSION/ABSORPTION' 
'ABSORPTION UNCOMPENSATED CALCULATED EMISSION' 

'U.C. EMISSION/ABSORPTION'. 'NOISE SCRATCH REGISTER' 
'BACKGROUND INTENSITY'.'BACKGROUND RADIAL EHISSION' 
'SMOOTH SCRATCH REGISTER'.'SHIFT SCRATCH REGISTER 1' 
'SHIFT SCRATCH REGISTER 2'»'ABEL SCRATCH REGISTER' 
'WANDER SCRATCH REGISTER'.'WANDER ACCUMULATOR' 
'SCRATCH REGISTER A'.'SCRATCH REGISTER B' 


'ON-AXIS GAUSSIAN'.'OFF-AXIS GAUSSIAN' . 'ELLIPSOIDAL' 
'HOMOGENEOUS' .' INPUT' . 'SCALE' . ' ADD TO' 

’ALL POSSIBLE'. 'SELECTED' .'POSITIVE'. 'NEGATIVE' 

PROFILE'.'RINGS'.'ZONES'.'RING NUMBER'.'ZONE NUMBER' 
i.R.S.T.O 
104 DATA 'MAJOR'.'SECONDARY' 

107 REM 107-120 RESERVED FOR MORE <2* VALUES. CHECK DIMENSION. 
121 REM VALUES FOR C 

123 DATA 4.1.2.4.1.11.1 

124 DATA 1 

123 REM VALUES FOR G 

127 DATA 1.11.8.2.3.9.3.10.3.4.6.1.3.12 

128 DATA 3.16 

130 REM LABLES FOR INPUT(E*(6>) 

131 DATA 'SUBROUTINE NUMBER='.'UHICH OPTION' 

132 DATA 'MAJOR PROFILE INVOLVED*'. 'SECONDARY PROFILE INVOLVED-' 

133 DATA 'FIRST ZONE OR RING NUMBER-' 

134 DATA 'LAST (OUTER) ZONE OR RING NUMBER*' 

130 REM Ct VALUES 

131 DATA CONSTRUC. FORWARD. NOISE. SHIFT .ABEL .PRINT-PLOT. SMOOTH 

132 DATA WANDER 
1000 Dl=8 

1002 D2-19 


100 

31 DATA 

101 

32 DATA 

102 

33 DATA 

103 

34 DATA 

104 

33 DATA 

103 

34 DATA 

104 

37 DATA 

107 

38 DATA 

108 

39 DATA 

109 

40 DATA 

110 

41 REM 4 

111 

54 REM H 

112 

37 DATA 

113 

38 DATA 

114 

39 DATA 

1 IS 

40 DATA 

114 

41 DATA 

117 

42 Bata 

118 

43 DATA 

118 

44 DATA 

120 

45 DATA 

121 

44 DATA 

122 

47 R£M 4; 

123 

100 REM 1 

124 

101 DATA 

123 

102 DATA 

124 

103 DATA 

127 

104 DATA 

128 

105 DATA 
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147 

140 

14* 

ISO 

131 

132 

133 

134 

133 

134 

137 

138 

139 

140 

141 

142 

143 

144 

143 

144 

147 

148 
14* 

170 

171 

172 

173 

174 

173 

174 

177 

178 
17* 
180 
181 
182 

183 

184 

183 

184 
187 


189 

1*0 

1*1 

1*2 

1*3 

1*4 

1*3 

1*4 

1*7 

1*8 


0-4 


1003 03*23 

1004 EXEC '8ASG*A ABEL*OATA. . ' 

1004 EXEC '8USE FILE.,ABEL*DATA. . ' 

1008 OPEN FILE FOR SYMBOLIC INPUT*3 

100* REM AREA MATRIX FIRST* THEN INVERSE MATRIX. 

1010 FOR 1*1 TO SO 
1013 FOR J*1 TO 10 
1020 J1*5«J 

1023 INPUT FROM 3 : A< I, Jl-4 > * A< I * J1-3) , AC I * Jl-2) . AU * Jl-1 > . AU , J1 > 

1030 NEXT J 

1033 NEXT I 

1040 FOR I«l TO SO 

1043 FOR J*l TO 10 

1050 J1*5*J 

1033 INPUT FROM 3J B(I»Jl—4)*B<I *Jl-3>»BC2*Jl-2)*B<I*J1-1)*B(I*J1) 

1040 NEXT J 

1045 NEXT I 

1048 CLOSE 3 

1070 MAT READ M*(D2> 

1073 MAT READ N*(D2> 

1074 MAT READ Q*(D3) 

107* MAT READ C(D1) 

1082 MAT READ GOl*2> 

1085 MAT READ Et 
1088 MAT READ C»(D1> 

1090 PRINT 'BATCH OR TIMESHARE RUN? INPUT "BATCH" OR') 

1093 PRINT ' "TIME" OR JOB ABORTS' 

UOO INPUT I*(2) 

1105 IF I»<2)*'TIME' THEN GO TO 1300 

1110 IF I*(2)*'BATCH' THEN GO TO 1113 ELSE GO TO 1140 
1115 F(9)*l 

1120 'BATCH RUN ACTIVE.' 

1123 'RUN IDENTIFIER INPUT'I 
1130 INPUT 14(2> 

1135 GO TO 1300 

1140 'ILLEGAL RUN TYPE. JOB ABANDON.' 

1143 STOP 

1300 PRINT 'DO YOU WISH TO RANDOMIZE) "1" QR "YES" OR "Y'") 
1303 ' IS AFFIRMATIVE.' 

1310 'ALL OTHER RESPONSES ARE NEGATIVE.') 

1313 INPUT I4<1) 

1320 IF I*Cl)*'l' OR 1$ < 1 )*'YES' OR I*<1>»'Y # THEN 1325 ELSE 1330 
1325 RANDOMIZE 

1330 PRINT 'HOU MANY RANDOM NUMBERS DO YOU UANT TO SKIP') 

1335 INPUT E(l) 

1340 Ed>*lNT(E(l) ) 

1343 IFECIXO THEN Ed)*0 
1330 IF E( 1) *0 THEN 1340 
1333 FOR 1*1 TO E(l) Q1*RND 
1340 GO SUB 3040 
1345 GO TO 1300 

1370 REM END OF INITIALIZATION 
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230 

239 

240 
242 

242 

243 

244 
249 

246 

247 
240 
240 

290 

291 

292 

293 

294 
299 



* CONTROL ROUTINE SPECIFIES: 

* 

* 1> SUBROUTINE NUMBER. 

* 2) OPTION NUMBER UITHIN SUBROUTINE. 

* 3> MAJOR PROFILE AFFECTED. 

* 4J MINOR PROFILE AFFECTED. 

* 5> FIRST (INNER) ZONE OR RING AFFECTED. 

* 4> LAST (OUTER) ZONE OR RING AFFECTED. 

* 

* IN BATCH MODE* THESE ARE SPECIFIED AS 6 NUMBERS SEPARATED BY 

* COMMAS ON A SINGLE INPUT CARO. INTERACTIVELY* VALUES ARE 

* SUPPLIED IN RESPONSE TO A PROMPT. IN ADDITION* NONNUMERIC 

* VALUES WHICH MAY BE GIVEN IN CONJUNCTION UITH NUMERIC COMMANDS 

* ARE AS FOLLOWS: 

* 

* E ERROR-REASK QUESTION. 

* R RESTART CONTROL CALLING SEQUENCE! THROW OUT 

* CURRENT CONTROL VALUES. 

* S SHUT DOWN PROGRAM* SAVING APPROPRIATE OUTPUT FILES. 

* USE IN PLACE OF THE BASIC 'STOP' COMMAND. 

* USE OF 'STOP' WILL WIPE OUT PLOT INFORMATION AND 

* LEAVE YOU IN BASIC. IF NO PLOTS ARE GENERATED* 

* S LEAVES YOU IN BASIC ANYWAY. ALSO* IN BATCH MODE* 

* S LEAVES YOU IN BASIC. 

* T IDENTICAL IN USE TO S. S STANDS FOR STOP* T 

* STANDS FOR TERMINATE. USE EITHER OR BOTH. 

* 0 ON ALL SUBSEQUENT QUESTIONS REGARDING THIS 

* SUBROUTINE CALL* USE DEFAULT VALUES RATHER THAN 

* ASKING FOR INPUT. 

* 

* ALL OF THE ABOVE ALPHABETIC COMMANDS MAY BE USED ALONE EXCEPT D 

* WHICH MUST. BE PRECEDED BY A NUhBER, SINCE 0 IS A UNIVERSAL 

* DEFAULT VALUE* ENTERING OD WILL GIVE DEFAULT VALUES NOT ONLY 

* ON SUBSEQUENT QUESTIONS BUT ON THE CURRENT QUESTION AS WELL. 

t THE LETTERS ARE SEARCHED FOR AND HAVE EFFECT IN THE ORDER SHOWN. 

* 

X***SX«*XXXXS*X**XXXXXX*XtXX«*X*XX*X*XX»*SX*XX***C**XX**XX***X*XX**3 

*' 

* SUBROUTINES AND DEFAULT VALUES ARE: 

* 

t SUBROUTINE DEFAULT VALUES 

* NAME NUMBER OPTION MAJOR PROFILE MINOR PROFILE 

* COMSTRUC 141 11 

* FORWARD 21 8 2 

* NOISE 32 3 9 

« SHIFT 4 4 3 10 

« ABEL 5 1 3 4 

* PRINT-PLOT 6 11 6 1 

* SMOOTH 7 1 3 12 

$ WANDER 8 13 16 

* 

* LEGAL ANSWERS TO 'WHICH OPTION' AND WHAT THEY MEAN. 

« POSITIVE INTEGERS VALUE DIRECTLY ASSIGNED AS OPTION FOR 

* THIS CALL TO THIS SUBROUTINE. 
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c * O use DCF AULT OPTION. 

c * -1 LEAVE OPTION UNCHANGED FROM PREVIOUS CALL 

c * TO THIS SUBROUTINE. THIS CHOICE IS RIFE 

C * WITH OPPORTUNITIES FOR ERRORS? ITS USE 

c * is NOT RECOMMENDED. 

C « -2 CHANCE THE DEFAULT OPTION FOR THIS 

C * SUBROUTINE? THE NEW DEFAULT OPTION IS 

C * IN EFFECT IF THE SUBROUTINE IS IN FACT 

C * ALLOWED TO EXECUTE DURING THIS CALL. 

C * 

C * LEGAL VALUES. FOR PROFILE NUMBERS AND WHAT THEY MEAN. 

C * INSTRUCTIONS HERE ARE THE SAME AS IN THE SECTION JUST CONCLUDED 

C * ON ASSIGNING OPTION VALUES* EXCEPT THAT THE WORDS 'PROFILE 
C * NUMBER' SHOULD BE SUBSTITUTED FOR THE WORD 'OPTION' ABOVE. 

C * 

C * LEGAL RING AND ZONE NUMBER ASSIGNMENTS. 

C * POSITIVE INTEGERS VALUES BETWEEN 1 ANO 30 ARE USED TO 

C * INDICATE LIMITS DIRECTLY. DEFAULT 

C * ASSIGNMENT OVERRIDES DIRECT ASSIGNMENT, 

c * 0 ALL ZONES AND RINGS 1 THROUGH SO ARE 

c * OPERATED ON BY THE SUBROUTINE, 

c « -1 ONLY ZONES OR RINGS IN THE EMISSION REGION: 

C * ARE OPERATED ON BY THE SUBROUTINE. 

C * -2 ONLY RINGS AND ZONES IN THE ABSORPTION 

C * REGION ARE OPERATED ON BT THE SUBROUTINE. : 

C * 

C rtX»XXXXXXXXXXXXXXXXt«XXXXXXXXXXXX*XXXXX*XXXXXXXXXXX*XXXXXXXXXXXXXX: 

1499 REM MAIN CONTROL ROUTINE 

1500 FOR 1-1 TO 6 

1503 IF 1*1 THEN PRINT ' ' 

1505 IF 1*1 AND F<9>*1 THEN 1750 ELSE IF F(9)*l THEN 1605 
1510 PRINT E*<I>? 

1515 INPUT I* 

1520 T**Q«(17) 

1522 IF CNT<I*»T«)>0 THEN 1510 
1525 Tt~0»<18> 

1527 IF CNT<I«»T9)>0 THEN 1530 ELSE 1540 

1530 1*0 

1535 GO TO 1915 

1540 T«*0«<19) 

1541 0*«Q*<20) 

1542 IF CNTCI*,T*>>0 OR CNT(It»0*»0 THEN 11001 
1545 02»LEN<I*> 

1548 IF Q2>5 THEN 1510 
1550 FOR J*1 TO 02 
1555 Q*GET(1$ *J) 

1560 IF G<48 OR Q>57 THEN IF 009 AND 0033 AND Q<>34 THEN 1510 
1565 NEXT J 
1570 T*»G*<21> 

1573 03*S£P<I*»TS»1) 

1575 IF G3>0 THEN 1590 
1580 E<I>*VALCI*> 

1585 GO TO 1605 
1590 0*03-1 
1592 T*»0*<21> 

1594 IF 0*0 Oft CNT<I«»T*>>1 THEM 1510 

1595 LET It<l>*PAD«<I»»0> 
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313 1400 E<IXUAL<I4<D > 

314 1403 ON I GO TO 1410.1640* 1480»1740#1740*1043 

315 1410 IF E(IX1 OR C<X»D1 THEN 1420 ELSE 1430 

314 1420 'ILLEGAL SUBROUTINE NUMBER. TRY AGAIN.' 

317 1423 IF F<9> *1 THEN 1730 ELSE 1310 

319 1430 K9*E<1) 

317 1433 GO TO 1880 

320 1440 IF E<!»0 THEN D<K9)«E(I) 

321 1443 IF E(I)*0 THEN D<X9)«C<K9> 

322 1430 IF E<I> — 2 THEN 1440 

323 1433 GO TO 1880 

324 1440 PRINT 'NEW DEFAULT OPTION FOR 'JC4<K9>* 

325 1443 INPUT C<K9> 

324 1470 Ed>*0 

327 1473 GO TO 1445 

328 1480 K8-1 

327 1483 IF Ed »D2 THEN 1490 ELSE 1700 

330 1490 PRINT 'PROFILE NUMBER 'SE<I>?' IS ILLEGAL. TRY AGAIN.' 

331 1493 GO TO 1310 

332 1700 IF E( I >>0 THEN H<K9»K8>*E<I ) 

333 1703 IF E(I)»0 THEN H(N9»N8)-G(K9»K8) 

334 1710 IF Ed)—2 THEN 1720 

335 1713 GO TO 1880 

334 1720 PRINT 'NEW DEFAULT ' ;a*C21+K8>?' PROFILE NUMBER FOR '? 

337 1722 PRINT 'SUBROUTINE 'fC*<K9>» 

338 1723 INPUT G<K9»K8> 

337 1730 EdXO 

340 1733 GO TO 1705 

341 1740 K8*2 

342 1743 GO TO 1483 

343 1730 INPUT Ed) fE<2)»E<3)fE(4>,EC3> *EC4) 

344 1733 IF E( D <*0 THEN 11001 ELSE 1403 

343 1740 X8*l 

344 1743 IF EdXO THEN 1790 

347 1770 IF EdX-1 THEN 1803 

348 1773 IF Ed>—2 THEN 1823 

347 1780 IF E(I3>0 AND ECXX«SO THEN L(K9.K8)«E<I> ELSE 1787 

330 1783 IF K8«2 AND L<K9t 1>>L(K9 f2> THEN 1900 

331 1783 GO TO 1880 

332 1787 PRINT 'RING OR ZONE NUMBER 'l£<X>*' IS ILLEGAL. TRY AGAIN.' 

333 - 1788 GO TO 1310 

334 1790 L<K9,1>*1 

335 1793 L<K9»2>»50 

334 1800 GO TO 1920 

337 1803 IF Ml-0 THEN 1853 

358 1810 L<K9*1)*i 

337 1813 L<K9»2)*M1 

340 1820 GO TO 1920 

341 1823 IF M2~3l THEN 1970 

342 1830 LCK9f1)»M2 

343 1835 LCK9f 2> s 30 

344 1840 GO TO 1920 

345 1843 KB*2 

344 1830 GO TO 1743 

347 1833 'YOU CAN' 'T USE THE EMISSION REGION? THERE ISN"T ANY.' 

348 1840 1*3 

347 1843 GO TO 1510 


iHmmsmswsmsssrasms 


584 


0-8 


1870 'YOU CAN"T USE THE ABSORPTION REGION# THERE ISN"T ANY* * 
1873 GO TO 1840 

1880 IF F<9>*1 OR Q3*0 OR 1*4 THEN 1713 
1883 1*1+1 

1870 FOR J*I TO 6 EU>*0 
1893 GO TO 1405 

1900 'IMPROPER RING OR ZONE NUMBER COMBINATION* * 

1905 1*3 
1910 GO TO 1310 
1913 NEXT I 
1920 PRINT ' ' 

1923 PRINT 'IN SUBROUTINE '#C$(K9)I' OPTION 'SOCK?)#' WILL BE' 
1930 PRINT 'PERFORMED ON RINGS OR ZONES '#L<K9*1>«' TO ' #L<K9r2) 

1932 PRINT 'PROFILE NUMBERS*'1>*H<K9*2> 

1933 ON K9 GO TO 1940*1960* 1980*2000*2020*2040*2060*2080 
1940 GO SUB 4000 

1943 GO TO 1300 
1960 GOSUB 6005 
1965 GO TO 1300 
1980 GOSUB 12005 
1983 GO TO 1500 
2000 GOSUB 14010 
2003 GO TO 1300 
2020 GOSUB 16010 
2025 GO TO 1500 
2040 GO SUB 3001 
2045 GO TO 1300 
2060 GOSUB 18005 
2065 GO TO 1500 
2080 GOSUB 24105 
2083 GO TO 1500 




c * reinitialization routine. 

tooo*reh*rei”t*”““JS3”s;;?jj"***************«***»»****»««*«***«»»«« 

3001 FOR I«1 TO 6 F<I)*0 
3005 F(8)*0 
3010 FOR I«1 TO D2 
3013 FOR J-l TO 50 
3020 V<I»J>«0 
3025 NEXT J 

3030 NEXT I ' 

2g 22? 1-1 T0 10 OCI)-H<I»l)«H<I,2)-o' 

3043 INPUT ^ SPAUAL Z0NE SI2E IN MICRONS 'I 

3030 IF A1<«0 THEN 3040 
3053 Al*Al*l.£-4 
3060 A2-1/A1 

ISw ' r TlV IS LAST MISSION RING'I 
3073 FC1J*INT<F<1>) 

3080 IF F<1)<0 THEN FC1)«0 
3085 IF F(1>>30 THEN F(l>*50 
3090 H1*F<1) 

3095 M2»F<1>+1 

«ol 'SEN T ^ T ^rir^°" LE PR0TECTI ™ ™ « ON——' 

3110 'ENTER "ON" OR "OFF' " f 
3115 PRINT 'TOUR CHOICE* > 

3t20 INPUT I*<1> 

IZ tt<l) *'QFF' THEN F(3)*i 

31^8 IF ^3100 ™ C * F(3> *° ELSE F<5) * 1 

£2 INFul xt H C 0 n LU PR0FIL£ 8 BE CONSTRUCTED*, 

SwRE?iRr' YES ' 0RI,<1, -' T ' ORI * t ‘ > -' O ' ORI *«>-'-='^<a>-OELSEr,8>.l 

3133 REN END OF REINITIALIZATION ROUTINE. 



• N# 





C * * 

C * RUN TERMINATION ROUTINE. CALLED ON T OR S SPECIFICATION * 

C * IN CONTROL ROUTINE. * 

C X * 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
11001 IF F<9>*1 THEN ZX*'CLOSE' ELSE Z«»'DONE' 

11003 Z9-0 

11023 IF Z1>0 THEN 11030 ELSE 11033 
11030 COSUB 9126 
11033 GO TO 99999 

C *XXXX*XXXXXXX*XXXXXXX*XXX*XXXXXXXXX**X*XX*XXXXXXXXX**XX***XXXX»XXXX* 

C * s 

C * SERVICE LABEL PRINTING ROUTINE. * 

C * * 

c xxx*xxxxxxxxxxxxxxxxxxxxxx*xxxx*xxxxx***xxxxxxxxxxxxxxxxx*x*s*xxxxxx 
15900 PRINT 'PROFILE '*N3*'» THE 'fN*<K3>*' PROFILE' 

13903 RETURN 

22020PRINT'IN '?C*<K9>*'r RINGS OR ZONES 'tKlf' TO MK2I' ARE AFFECTED.' 
22023 RETURN 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c * * 

C X SERVICE ROUTINES INTERCONNECTION OF CORE AND SUBROUTINES. * 

C * 

C xxx»xxsxxxxxxxxxxxxxxxxxxxxx«*xxxxxxx**xxxxxxxxx*xxxsxxxxxxsxxxxxx»x 

13930 K1»L<K9.1) 

13935 K2-L<K9,2) 

13940 K3*H<K9»1) 

159*5 K4*H<N9.2) 

13930 K3-DCK9) 

13933 RETURN 

C xxxx*xxxxxx*xxxxxxxxxxxxxxxxx***xxxxxX*x*xxx*xxxxxxxxxxxxxxxxxxxxxxx 

C x X 

C X ERROR HANDLINO ROUTINE. X 

C X X 

C XXXX*X*X*XXXXXXXXXXX**XXXXXXXXXXXXXXXX*XXX*XXX*XXXX*XXXXXXXXX*XXX**X 

22000 PRINT 'OPTION 'JKSi'IS ILLEGAL IN SUBROUTINE 'SC*<K9>*'.' 

22003 PRINT 'RETURN AND TRY AGAIN.' 

22010 RETURN 
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479 C ****XXXXXXXXXX«*XXXXXX**XXXtX*X*«XXXXXX*X*»X***XXXX**X*XXXX****XXXX 

480 C * X 

481 C * DUMMY STATEMENTS SUBSTITUTING FOR UNLOADED SUBROUTINES. X 

482 C « X 

483 C XXX*XXXXX**XXXX**XX*X«*****XX*<XX*X**XXXX**«XX****XXXXX*XXXXXXX***XX 

484 4000 PRINT 'CONSTRUC NOT LOADED. INSERT IP DESIRED.' 

485 4025 RETURN 

480 0005 PRINT 'FORWARD NOT LOADED. INSERT IF DESIRED.' 

487 0010 RETURN 

488 8001 PRINT 'OUTPUT ROUTINE ABSENT. LOAD IF DESIRED.' 

489 8010 RETURN 

490 9018 PRINT 'PEPSU8 OMITTED. LOAD IF DESIRED.' 

491 9020 RETURN 

492 9124 GO TO 9018 

493 10009 PRINT 'MINIPLOT OMITTED. LOAD IF DESIRED.' 

494 10012 RETURN 

495 12005 PRINT 'NOISE ROUTINE NOT LOADED. INSERT IF DESIRED.' 

494 12010 RETURN 

497 14010 PRINT 'SHIFT ROUTINE ABSENT. LOAD IF DESIRED.' 

498 14035 RETURN 

499 14205 PRINT 'SHIFT ROUTINE NEEDED FOR WANDER OMITTED.' 

500 14210 PRINT 'ALLOW TO LOOP UNTIL DONE.' 

501 14215 RETURN 

502 16010 PRINT 'SUBROUTINE ABEL ABSENT. LOAD IF DESIRED.' 

503 16035 RETURN 

504 18005 PRINT 'SMOOTH ROUTINE ABSENT. LOAD IF DESIRED.' 

305 18029 RETURN 

304 24105 PRINT 'SUBROUTINE WANDER OMITTED. LOAD IF DESIRED.' 

307 24110 RETURN 

308 99999 END 

309 C. xxxx#xxxx*xx*x*x*xx*xx********x**xxxxxxxxxxxxxxxxxx****x*xxxxxxx**** 

310 C * * 

311 C « END OF CORE ROUTINES. * 

312 C * X 

313 C XXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXXXXXXXXXSX*XXXXSXX«XXXXXXXXXXXXXXXXX 
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c 8************M**t*<***»*****<<«********************************** 
c * 

C * SUBROUTINE CONSTRUC 

c s 

C * OPTIONS ARE 

C t 1) ABB ON-AXIS GAUSSIAN PROFILE TO PRESENT PROFILE. 

C * 2> ADD OFF-AXIS GAUSSIAN PROFILE TO PRESENT PROFILE. 

C * 3) ADD ELLIPSOIDAL PROFILE TO PRESENT PROFILE. 

C * 4) ADD HOMOGENEOUS <CONSTANT IN EACH RING OR ZONE) PROFILE 
C * TO PRESENT PROFILE. 

C * 3) INPUT DIRECTLY VALUES IN A FEU ZONES OR RINGS. 

C * A) INPUT DIRECTLY VALUES FOR ALL POSSIBLE (BASED ON LOOP 
C * INDICES CHOSEN) Z0NE5 OR RINGS. 

C * 7) SCALE THE VALUES IN A FEU ZONES OR RINGS. 

C * 8> SCALE ALL POSSIFLE ZONES OR RINGS. 

c * 9 ) ADD INPUT VALUES TO THE PRESENT VALUE OF A FEU ZONES OR RINGS 

C * 10) ADD INPUT VALUE TO PRESENT PROFILE VALUE IN ALL POSSIBLE 

C * RINGS OR ZONES. 

C * 11) ADD MINOR PROFILE TO MAJOR PROFILE) STORE IN MAJOR PROFILE. 

C * 12) SUBTRACT MINOR PROFILE FROM MAJOR PROFILE) STORE IN MAJOR 
C * PROFILE. 

C * 13) SCALE ALL VALUES BY AN INPUT CONSTANT. 

C * 14) CROSS-MULTIPLY THE INPUT PROFILES) STORE IN MAJOR PROFILE. 

C * BY ADDING 20 TO ANY OF THE ABOVE OPTIONS* THE OPTION 

C * MILL BE EXECUTED AFTER THE APPLICABLE SECTION OF THE PROFILE 
C * HAS BEEN CLEARED. 

C * PERMANENT SCRATCH REGISTER FDR THIS ROUTINE IS U(S*X>. 

C * 

C *********************************t******************************** 

2999 REM SUBROUTINE CONSTRUC 
4000 GOSUB 13930 

4023 IF K3>34 THEN 4070 ELSE IF K5>14 AND K3<20 THEN 4070 
4030 IF K3*l OR K3*2 THEN F(2)-l 
4035 IF K3-4 THEN 4080 
4040 IF K5<20 THEN 4100 

4043 PRINT Q*<12>)' ')K'3*'* THE '?N»(K3>)' ')0*<12>)' IS BEING CLEARED' 
4050 'FROM ZONE OR RING NUMBER ' )K1)' TO ZONE OR RING NUMBER 'JK2?'.' 
4053 FOR I-Kl TO K2 V(K3.I)=0 
4040 K5-K3-20 

4043 IF K3O0 THEN 4100 ELSE RETURN 

4070 GO TO 22000 

4080 F<3>*1 

4085 F<4>-1 

4090 GO TO 4040 

4100 IF K5>4 THEN 4230 

4103 PRINT 'YOU ARE CONSTRUCTING AN ')0»(K3>>' '»N*(K3>)' ')Q4<12> 

4110 'WHICH WILL BE ADDED TO THE CURRENT CONTENTS OF THAT PROFILE.' 

4113 PRINT 'MAXIMUM ')M»<K3>*' IS*') 

4120 INPUT 01 

4123 ON K5 GO TO 4145*4130*4175*4220 
4128 REM OFF-AXIS GAUSSIAN CONSTRUCTION 
4130 'GAUSSIAN CENTERED IN ZONE OR RING') 

4133 INPUT 03 

4140 GO TO 4150 

4143 REN ON-AXIS GAUSSIAN 

4143 03*0 

4148 REM ALL GAUSSXANS CONSTRUCTED HERE. 
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» 4130 PRINT 'GAUSSIAN HALF WIDTH AT HALF HEIGHT * 1 

39 4133 INPUT 02 

40 4140 FOR I*K1 TO K2 V<K3* I>*VO<3,mai*EXP<-.6931472*< <I-03>/02)**2) 

41 4170 GO TO 4420 

42 4173 REN ELLIPSOIPAL PROFILE. 

43 4173 PRINT 'ZONE OR RING IN WHICH ELLIPSE FALLS TO ZERO'S 

44 4180 INPUT 02 

43 4183 FOR I*K1 TO K2 

44 4190 03*1.0-<I/02)«*2 

42 4193 IF Q3<0 THEN 03*0 

48 4200 V<K3»I)*V<K3,I>+Ql*SGRCQ3> 

49 4203 NEXT I 

70 4210 GO TO 4420 

71 4219 REN HOMOGENEOUS PROFILE CONSTRUCTION. 

72 4220 FOR I*K1 TO K2 V<K3,I)*V<\3, D+01 

73 4223 GO TO 4420 

74 4227 REN OPTIONS 3 TO 10 INTERTWINE*. 

73 4230 IF K5>10 GO TO 4430 

74 4233 K4-N0D<N3*2> 

77 4237 REN K4*l MEANS 'A FEW VALUES'5 *0 MEANS 'ALL POSSIBLE VALUES.' 

73 4240 K3*INP< <K5—3>/2) 

79 4243 PRINT 'YOU HAVE DECIDED TO '?0*<K5+4>>' ' )QS<8+K4) I' '?N*OC3>* 

30 4247 PRINT ' VALUES' 

81 4250 PRINT 'IN THE ')N*<K3>)' PROFILE.' 

32 4255 K4*K4+1 

83 4240 ON K4 GO TO 4330*4265 

84 4263 REN OPTION 5.7,9 OPERATE ON 'A FEU ZONES' 

83 4243 PRINT 'ZONE OR RING*'* 

34 4270 INPUT 01 

87 4275 01*INT(Ql ) 

88 4280 IF 01<K1 OR Q1>K2 THEN 4420 

89 4285 PRINT 'VALUE*') 

90 4290 INPUT 02 

91 4293 ON KS GO TO 4300,4310,4320 

92 4300 V<K3,01)*Q2 

93 4305 GO TO 4265 

94 4310 V<K3,Q1)*V<K3,Q1)*Q2 

93 4313 GO TO 4245 

94 4320 V<K3,Ql)*V<K3»01)+O2 

97 4323 GO TO 4265 

98 . 4328 REN OPTIONS 6,8,10 

99 4330 Q1*K2-K1+1 

100 4335 'INPUT VALUES, 1 PER LINE.' 

101 4340 FOR I*K1 TO N2 

102 4343 PRINT 'ZONE OR RING '»Ii' VALUE*') 

103 4350 INPUT T* 

104 4355 0*«0*< 17) 

103 4360 IF CNT<T*,0*)>1 THEN 4343 ELSE 0**QS<18) 

104 4363 IF CNT<T*,Q*»0 THEN 4370 ELSE 4380 

107 4370 I-Kl-1 

108 4373 GOTO 4413 

109 4380 V<5,I)*VAL<T*> 

110 4385 ON KS GO TO 4390,4400,4410 

111 4390 V<K3,I>*V(3»I) 

112 4393 GOTO 4413 

113 4400 V<K3,I)*V(N3»I>*V(5#I) 

114 4403 GO TO 4415 




us 

1U 

117 

118 
117 
120 
121 
122 

123 

124 

123 

124 

127 

128 
127 

130 

131 

132 

133 

134 

135 
134 

137 

138 
137 

140 

141 

142 

143 

144 

145 
144 

147 

148 


4410 V<K3.I>«U<K3.X>+V<S»X> 

4413 NEXT X 

4420 IF F<8>*0 THEN IF K3<>! THEN IF K3<>2 THEN RETURN 

4422 IF F<8X>0 THEN RETURN 

4423 IF HI<1 THEN 4433 

4430 FOR 1-1 TO Ml V(8.I>»V(1.I> 

4433 IF M2>30 THEN RETURN 

4440 FOR t*M2 TO 30 V<8*I)*VC2.I> 

4443 RETURN 

4430 K5*K5-10 

4433 IF K5>*3 THEN 4303 

4440 PRINT 'OVER THE APPLICABLE ZONES OR RINGS* THE 'I0»C7+K5>»' 'I 
4463 PRINT N«<K4)S' PROFILE' 

4470 PRINT 'UILL BE ADDED TO THE '«N*<K3>*' PROFILE.' 

4473 PRINT 'THE RESULT IS STORED IN '» 

4480 G0SU8 15900 

4483 PRINT 'THE UNCHANGED PROFILE IS NUMBER 
4470 K5»3-2*K5 

4473 FOR I-Kl TO K2 V<K3# I)*V<K3. I)+K3*V<K4.1) 

4500 GO TO 4420 
4503 K5-K5-2 

4510 ON K3 GO TO 4315.4330 

4513 PRINT 'YOU ARE SCALING EVERY APPLICABLE POINT IN THE 'I 
4520 PRINT N*<K3)?' PROFILE' 

4523 PRINT 'BY WHATEVER VALUE TOU INPUT.' 

4530 PRINT 'WHAT IS THE SCALE FACTOR'$ 

4533 INPUT 01 

4340 FOR I»K1 TO K2 VCK3.1) =01*V<K3* I) 

4543 GO TO 4420 
4330 GOSUB 15900 

4335 PRINT 'WILL BE CROSS-MULTIPLIED WITH PROFILE '»K4»'.' 

4560 PRINT 'THE 'JNS(K4>*' PROFILE. THE RESULTS ARE IN PROFILE '?K3S' 
4343 FOR I-Kl TO K2 V<K3.I)*V<K3.I>*V<K4*I) 

4370 GOTO 4420 
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2 Cm 

3 C f SUBROUTINE FORWARD 

4 C * 

3 cm options are: 

4 C * 1> USING THE MAJOR PROFILE AS A RADIAL EMISSION PROFILE AND 

2 cm THE MINOR PROFILE AS THE RADIAL ABSORPTION PROFILE* COMPUTE 

• C m A LATERAL INTENSITY PROFILE AND STORE IT IN PROFILE *3. 

* C • PROFILE 4 IS USED AS THE BACKLIGHT PROFILE* AND THE 

14 C * EMISSION/'ABSORPTIQN BOUNDARY AS SET IN INITIALIZATION IS 

C * USED. IF THE MAJOR PROFILE IS PROFILE 8* THEN THE MINOR 

C m PROFILE IS AUTOMATICALLY ASSUMED TO BE 8* OVERRIDING THE 

C m. CHOICE MADE IN THE CALLING SEQUENCE. 

C 8 2> CONVERT THE MAJOR PROFILE INTO A LATERAL INTENSITY 

C * PROFILE* IGNORING ABSORPTION. ABSORBING REGIONS OF THE 

C m INPUT AND OUTPUT PROFILES ARE IGNORED. 

C * 3> CONVERT THE MAJOR PROFILE INTO A LATERAL INTENSITY 

C *• <TRANSMITTANCE) PROFILE* ASSUMING ONLY ABSORPTION TAKES 

C m. PLACE. EMISSION REGION OF INPUT AND OUTPUT PROFILES ARE 

C * NOT AFFECTED. 

C m 4) INSTALL RADIAL ABSORBER AS DESCRIBED IN THE MINOR PROFILE 
C * AROUND THE LATERAL INTENSITY DATA IN THE MAJOR PROFILE. 

C M RESULTS STORED IN THE MAJOR PROFILE* AND A TRANSMITTANCE 

C « PROFILE IS NOT GENERATED IN THE ABSORBING REGION. 

C t 

C * ADDING lO TO OPTION 2 OR 3 MAKES FORWARD IGNORE THE 
C » ARBITRARY EMISSION/ABSCRPTION BOUNDARY SET DURING INITIALIZATION. 
C * THUS ZONES AND RINGS EXCLUDED FROM TREATMENT IN OPTIONS 2 AND 3 

C * ARE TREATED IN OPTIONS 12 AND 13. 

C m 

C * RESULTS AUTOMATICALLY STORED IN PROFILE 3 EXCEPT WHEN OPTION 4 
C * IS USED. 

C * 

4000 REM FORWARD.. .RADIAL TO LATERAL CONVERSION 
4005 N1«L(2*1> 

4010 M2*L<2*2> 

4015 N3*M1 
4020 N4-H2 
4025 N3»D<2> 

4030 N4*H<2*1> 

4035 N7»H<2*2> 

4040 IF N6-8 AND N503 THEN N7«8 
4045 IF F<2)*0 THEN 6030 ELSE 6065 

4050 IF N6-1 OR N6=2 OR M4*8 AND F(8>»0 THEN 6055 ELSE 6065 
4055 PRINT 'NO INPUT PROFILE IN FORWARD. RETURN AND TRY AGAIN.' 

4060 RETURN 

4045 IF NS<1 OR N3>4 AND N5<>12 AND NS013 THEN 4070 ELSE 4080 
4070 K3*N3 
4075 60 TO 22000 

4080 IF N3>10 THEN 6035 ELSE 6110 

4085 PRINT 'EMISSION/ABSORPTION BOUNDARY AS SET PREVIOUSLY' 

4090 PRINT 'WILL BE IGNORED IN FORWARD.' 

4095 N5*N3-10 
4100 IF N3»2 THEN N3«N2 
4105 IF N3*3 THEN N4=N1 
4110 IF NS*2 OR N5*4 THEN 4111 ELSE 4112 
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37 

40 

41 

42 

43 

44 

43 

44 
47 
43 
47 

70 

71 

72 

73 

74 

73 

74 

77 

78 
77 


•1 

82 

83 


83 


87 


70 

71 

72 

73 

74 

73 

74 
77 


77 

100 

101 

102 

103 

104 

103 

104 

107 

108 
107 
110 
111 
112 

113 

114 


4111 XF N1>NJ THEN 4U5 

4112 IF N3*3 OR N3«4 THEN IF N2<N4 THEM 4113 ELSE 4130 ELSE 4130 
4115 PRINT 'SUBSCRIPT/OPTION CONFLICT IN FORWARD. ' 

4120 GO TO 22005 

4130 IF N5«l OR N3*3 THEN IF F<3><>1 THEN 4135 ELSE 4155 ELSE 4155 
4135 PRINT 'CONSTRUCTING DEFAULT BACKLIGHT PROFILE.' 

4140 PRINT 'V(4#J)«100 IN ALL ZONES 1 TO 50' 

4145 F<3)>1 

4150 FOR I»1 TO 50 V<4.15-100. 

4155 IF N3»l OR NS»3 THEN F(4)*0 

4154 IF N2<N3 THEN N3-N2 

4157 IF N1>N4 THEN N4-N1 

4140 IF N5=4 THEN 6245 

4145 REN CLEAR OUTPUT PROFILE. 

4170 FOR I*N1 TO N2 LET V<3»I)*0 
4175 ON NS GO TO 4180.4180*4220 
4180 IF N1>N3 THEN 4220 

4185 REM RADIAL EMISSION TO LATERAL INTENSITY CONVERSION 

4170 FOR I*N1 TO N3 

4175 FOR J*I TO N3 

4200 V<3#I>«V<3»I>+A<I.J)*U(N4»J> 

4205 NEXT J 

4208 V<3rl)*V< 3.I)*2*A1<»2 
4210 NEXT I 

4215 IF N3*N2 OR N3=2 THEN 4305 
4220 IF N4>N2 THEN 4305 

4225 REM RADIAL ABSORPTION TO TRANSMITTANCE CONVERSION. 

4230 FOR I«N4 TO N2 

4235 FOR J»I 10 N2 

4240 V<3»I)-V<3.I}+A<I>J)*V<N7.J) 

4245 NEXT J 

4250 V<3rI)>V<4*I)X10**<-V<3»I)*Al*2> 

4255 NEXT I 

4240 IF N5-3 THEN 6305 

4245 IF N5<>4 THEN N6»3 

4270 REM SURROUND EMITTER WITH ABSORBER 

4272 IF N1>N3 OR N4>N2 THEN 4115 

4275 FOR I-Nl TO N3 

4280 01*0 

4285 FOR J*N4 TO N2 ai*Ql+A<I*J>*V<N?»J> 

4270 V<N4fI)-V<N4.I)«10**<-01*Al) 

4275 NEXT I 
4300 N6*H <2*1) 

4305 IF N5<3 THEN 6310 ELSE 6320 

4310 PRINT 'IN FORWARD* PROFILE '*N4«'. THE PROFILE' 

4315 PRINT 'WAS USED AS AN INPUT RADIAL EMISSION PROFILE.' 

4320 IF NS<>2 THEN 6325 ELSE 6335 

4325 PRINT 'IN FORWARD. PROFILE ' ?N7?'. THE 'fNt(H 7>?' PROFILE' 

4330 PRINT 'WAS USED AS AN INPUT RADIAL ABSORPTION PROFILE.' 

4335 PRINT 'OPERATING LIMITS WERE ZONES AND RINGS 'INI?' TO 'JN2I' 
4340 PRINT 'OPTION ' *N5S ' WAS EXECUTED IN FORWARD.' 

4350 PRINT 'OPERATION DESCRIPTIONJ' 

4355 ON N5 CO TO 6360.4375.4385.4375 

4340 PRINT 'COMPLETE RADIAL TO LATERAL EMISSION/ABSORPTION '> 

4345 PRINT 'CALCULATION PERFORMED.' 

4370 RETURN 

4375 PRINT 'RADIAL EMISSION TO LATERAL INTENSITY 'f 
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4380 60 TO 4343 

4390 6O 1 T0 4343 IAL * 8SORPTION T0 TRANSMITTANCE PROFILE 'I 


4393 PRINT 
4400 PRINT 
4403 PRINT 
4410 RETURN 


INTENSITY PROFILE IN PROFILE 'fN6t’, THE 'fN*<N6)4' 
NAS ATTENUATED ASSUMING AN ABSORBER AS DESCRIBED' 

IN PROFILE '»N7»' ABOVE* * 


PROFILE' 
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C ****r********s***s«ss****ts***tx**********s*stttttts**t***«tts****** 
C * 

C * SUBROUTINE NOISE 

c < 

C * OPTIONS are: 

C * 1) ADD NOISE INDEPENDENT OF THE VALUE OF THE INPUT NOISELESS 

C « DATA. 

C * 2) ADD NOISE BASED ON THE MAXIMUM DATA VALUE IN THE EMISSION 

C * REGION OF THE INPUT DATA PROFILE. 

C t 3) ADD NOISE BASED ON THE MAXIMUM VALUE IN THE ABSORPTION 

C S REGION OF THE INPUT DATA PROFILE. 

C * 4) ADD NOISE PROPORTIONAL TO THE NOISELESS DATUM VALUE. 

C * 14) ADD NOISE PROPORTIONAL TO THE SCJUARE ROOT OF THE NOISELESS 

C * DATUM VALUE. 

C * 24) ADD NOISE WHICH IS PROPORTIONAL TO AN ARBITRARY POWER OF THE 
C * NOISELESS DATUM VALUES. 

C * 

C *x****t»****«**«s***««*s***x«*x*«*t**«**************««**«x**x**««**4 
12000 REM SUBROUTINE NOISE 
12005 S-T-0 
12010 GOSUB 15930 

12035 IF K5<0 OR K3>4 AND K5<>14 AND K5<>24 THEN 12090 
12040 IF M1<1 AND K5-2 OR M2>50 AND K5-3 THEN 12090 
12045 PRINT 'THIS IS THE NOISE ADDITION SUBROUTINE.' 

12050 GOSUB 15900 

12055 PRINT 'WILL HAVE NOISE ADDED TO IT AS PER TOUR OPTION CHOICE.' 
12040 PRINT 'THE NOISELESS DATA INPUT IS SAVED IN PROFILE '?K4I'p' 

12043 PRINT 'THE 'pN*<K4>#' PROFILE.' 

12070 GOSUB 22020 

12073 'OPTION '#K5»' WILL BE EXECUTED.' 

12080 FOR I»Ki TO K2 V<K4»D*=V(K3 f I) 

12083 IF K5<3 THEN 12270 ELSE 12120 

12090 'ILLEGAL OR INCOMPATIBLE OPTION IN NOISE ROUTINE.' 

12093 'OPTION 'fK3»' WAS CHOSEN.' 

12100 'IF OPTION 2 OR 3 WERE USEDr CHECK. FOR THE ABSENCE OF' 

12105 'EITHER THE EMISSION REGION OR THE ABSORPTION REGION.' 

12110 GO TO 22005 

12120 IF K3-14 THEN 12140 

12125 PRINT 'UPON WHAT POWER OF THE DATA DOES NOISE DEPEND'I 
12130 INPUT N1 
12133 GO TO 12143 
12140 Nl».3 

12143 PRINT 'SCALING CHOICE. DO YOU WISH TO SCALE NOISE ON AN' 

12150 PRINT 'ABSOLUTE BASIS OR ON AN OPTIMUM SIGNAL TO NOISE RATIO 'J 
12133 PRINT 'BASIS?' 

12140 PRINT 'ENTER "ABS" OR "SN".'I 
12145 INPUT T* 

12170 PRINT 'NOISE IS PROPORTIONAL TO THE' ?N1 t 'POWER OF THE DATA.' 

12173 IF Tf * 'ABS' THEN 12180 ELSE IF T*»'SN'THEN 12193 ELSE 12140 
12180 PRINT 'SCALED BY A FACTOR OF 'i 
12185 INPUT T 
12190 GO TO 12220 

12195 PRINT 'WITH MAXIMUM SIGNAL TO NOISE RATIO') 

12200 INPUT T 
12203 GOSUB 12245 

12210 REM SUBROUTINE RETURNS Sw THE MAX. INPUT DATA VALUE. 

12213 T*<S*»C1-N1))/T 
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12220 FOR I«K1 TO K2 

12223 IF ABS<V<K3'I)X1.E-18 THEN 12233 

12230 V<K3»I)-V<K3#mT«ABS<V<K3*I)>4SNl«<RND-.3> 

12233 NEXT I 
12240 RETURN 
12243 FOR I»K1 TO K2 

12230 IF ABS(V<K3»I))>S THEN S«ABS<V<K3»X>I 

12233 NEXT I 

12240 IF S«0 THEN S»t 

12243 RETURN 

12270 ON K3 GO TO 12280,12293,12333,12410 

12280 PRINT 'IN ABSOLUTE UNITS# WHAT IS PEAK-TQ-PEAK NOISE VALUE' I 

12283 INPUT T 

12290 GO TO 12330 

12293 KI*1 

12300 K2-M1 

12303 PRINT 'NOISE BASED ON MAXIMUH EMISSION REGION DATA VALUE.' 
12310 GOSUB 12243 
12313 K1»L<3»1> 

12320 K2*L<3.2) 

12330 PRINT ' WHAT IS SIGNAL TO NOISE RATIO AT HIGHEST DATA VALUE'I 

12340 INPUT T 

12343 T-S/T 

12330 FOR I*K1 TO K2 

12333 V(K3#I)*V(K3#I>+T*<RND-.3> 

12338 NEXT I 
12340 RETURN 
12383 K1»M2 
12390 K2*30 

12393 PRINT 'NOISE BASED ON MAXIMUM ABSORPTION REGION DATA VALUE.' 

12403 GO TO 12310 

12410 Nl*l 

12413 60 TO 12143 
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C ****x**<«x**xxxxxxxxxxxxxxxx*xxxxxxxxxxx«xxxxxxxxxxx*xxxxxxxxxxxxxx 
C * 

C * SUBROUTINE SHIFT 

Cm 

C rn OPTIONS ARE 

C * 1) SHIFT MAJOR PROFILE. EMISSION/ABSORPTION BOUNDARY FIXED. 

C * REFLECT AND FILL TO COMPLETE PROFILE AS NECESSARY. 

C 9 2) SAME AS 1) EXCEPT THAT EMISSION/ABSORPTION BOUNDARY IS SHIFTED 
C m IN THE SAME MANNER AS THE PROFILE. 

C * 3) SAME AS 1) EXCEPT THAT EMISSION/ABSORPTION BOUNDARY IS 
C * IGNORED COMPLETELY. 

C » 4) UNSHIFT PROFILE CURRENTLY IN STORAGE AND PLACE IT IN THE 
C C MAJOR PROFILE. 

C * 3) REINITIALIZE SYSTEM. 

C « 6) RESET EMISSION/ABSORPTION BOUNDARY. 

C * 

C * ADDING 10 TO OPTIONS 1 THROUGH 3 CANCELS REFLECTION AND FILLING. 

C * PROFILES OTHER THAN THOSE SPECIFIED IN THE SUBROUTINE CALL MAY BE 
C « SHIFTED UNDER SPECIAL CIRCUMSTANCES* DESCRIBED FULLY IN THE 
C M FULL PROGRAM DOCUMENTATION. 

c * 

C «.*XXXXXXXXXXXTXXXXXXXXXXXXXXXXXXXXXXX*XXXX»*XXX*XXXXX*XXX*XXX¥XXXXXX 
14000 REM SUBROUTINE SHIFT 
14010 GOSUB 13930 

14035 IF K5<1 OR K3>6 THEN 14040 ELSE 14060 
14040 IF K3C11 OR K5>13 THEN 14045 ELSE 14060 
14045 GO TO 22000 

14060 IF K5<>5 AND K3<>6 THEN 14062 

14061 GOSUB 22020 

14062 IF K5>3 AND K5<7 THEN 14600 
14065 IF K5-2 THEN F<1)*M1 

14070 PRINT 'BY HOU MANY ZONES DO YOU UISN TO SHIFT THE PROFILE'* 

14073 INPUT I* 

14080 Ql-0 

14083 FOR 1-6 TO 31 

14090 LET T*«PUT»<T**1,I> 

14095 Ql«ai+CNT(I**T*> 

14100 IF Q1>0 THEN 22005 
14105 NEXT I 

14110 IF LENCI«»4 THEN 22005 
14115 K6-VALCI6) 

14120 IF N60INTCK6) THEN 14123 ELSE 14140 

14125 PRINT 'NON-INTEGER SHIFTS ARE ILLEGAL. TRY AGAIN.' 

14135 GO TO 14070 

14140 IF K6<—30 OR K6M00 THEN 14130 ELSE 14163 
14130 PRINT 'SHIFT AMOUNT IS <-50 OR MOO. * 

14135 PRINT 'YOU''RE UIPING OUT THE PROFILE. TRY AGAIN.' 

14160 GO TO 14070 
1416S GOSUB 15900 

14170 PRINT 'UILL BE SHIFTED 'iK6;' RINGS OR ZONES.' 

14173 IF K5>10 THEN PRINT 'NO REFLECTION OR BACKFILLING UILL OCCUR.' 
14180 IF K3-2 OR K3-12 THEN PRINT 'Ml SHIFTED ALSO. ' 

14185 IF K5*3 OR K3-13 THEN PRINT 'Ml IGNORED.' 

14190 IF K6»0 THEN RETURN 

14195 IF K3-K4 AND N303 THEN K7-14 ELSE K7-13 

14200 PRINT 'UNSHIFTED PROFILE STORED IN PROFILE NUMBER '*K7 

14203 FOR I-Kl TO N2 
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100 

101 
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107 
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108 
110 
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114 


14210 
14215 
14220 
14223 
14230 
1423S 
14240 
14245 
14250 
14255 
14240 
14243 
14270 
14273 
14280 
14285 
14280 
14285 
14300 
14305 
14310 
14315 
14320 
14323 
14330 
14333 
14340 
14345 
14350 
14335 
14340 
14345 
14370 
14373 
14380 
14385 
14380 
14383 
14400 
14403 
14410 
14413 
14420 
14423 
14430 
14435 
14440 
14443 
14430 
144S5 
14440 
14445 
14470 
14475 
14480 
14485 
14480 


VOC7*I)»V(K3»I> 

V<K3,I)»0 
NEXT r 

IF K3*l OR K3*tl THEN 14345 
REN OPTION 2*3»12» AND 13 
N1-N4-K1 

N2*N5*N2 

N3«l 

GOSUP 14810 

IF K5»3 OR KS-I3 THEN 14275 
Hl»F(l)fK4 

H2-M1+1 ™ EM H1 *° ELSE IF f1l>3 ° THEN M1 * S0 

It 10 ™ EN 14300 ELSE IF K4>0 THEN 14313 

N3*3 2 * M2 K3 * 3 ™ EN 14290 ELSE 14500 

N4»K2+K4+1 

IF N4<K1 THEN N4-N1 

IF N4VK2 GO TO 14300 

GOSUB 14810 

GO TO 14500 

NS-K1+K4-1 

N3»2 

IF N3>K2 THEN N5-K2 
GOSUB 14810 
GO TO 14300 
REN OPTIONS 1 AND 11 
IF KliHl THEN 14405 

NliNj»Kf ,ISSI0N * ABS0RPTI ° N BOUNOARY FIXED a WD EMPLOYED. 

N2*N3»H1 

N3-1 

GOSUB 14810 

IF K5>10 OR K6< 0 THEN 14403 

N3-K1+K4+1 

N3«2 

IF N5>K2 THEN N3*K2 
IF N3>N1 THEN N5»H1 
GOSUB 14810 
IF K2<N2 THEN 14300 
N1«H2 

IF NKK1 THEN N1*K1 

N2*N5»K2 

N3»l 

N4»N1 

GOSUB 14810 

IF K5>10 THEN 14SOO 

IP W<0 AN© N3*3 THEN 14475 

N3-K1+K4-1 
IF NSiK2 THEN NS«K2 
GOSUB 14810 
GO TO 14500 
N 3-3 

N4-K2+K6+1 
IF N4<«2 THEN N4»H2 
IF N4>K2 THEN 14500 
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143 
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171 


14499 

14900 

14903 

14910 

14919 

14920 
14929 
14330 
14939 
14540 
14345 
145S0 j 
14555 
14540 
14545 ; 
14370 : 
14573 J 
14580 F 
14585 F 
14590 K 
14595 G 
14598 R 
14400 K 
14405 0 
14410 P 
14413 II 
14420 F( 
14425 G< 
14430 Pt 
14435 Mj 
14440 m: 
14443 IF 
14430 K3 
14455 GG 
14440 RE 
14443 PR 
14470 GO 
14475 RE 
14480 PR 
14483 PR 
14490 INI 
14493 F(; 
14700 IF 
14703 Ml« 
14710 M2» 
14715 RE1 
14800 REh 
14803 REJi 
14810 ON 
14815 FOR 
14820 01« 
14825 IF 
14830 V(K 
14833 HEX 
14840 RETI 
14843 FOR 
14850 QI*| 


1495 GOSU8 14810 

»500 IF K3<>3 OR K4*K3 THEN RETURN 

!S backlight shifting 

>315 N1*K1 

« m * 0 " then W1 - M2 

330 FOR I*Kl TO K2 
335 Ol*I+K4 

345 aR N2>01 ™ EN 14550 

345 V<4,01)»U<4»I> 

550 NEXT I 

J£ K6>0 THEN WI»M2 

J£ " 1<K1 7HE * wi.Ki 
Jr ™ EN N1=K2+K6+1 

Jr THEN N2*F< 1 )+K,i-t 

rao K2 0R K6<0 TH£N N2*K2 

»80 FOR I*N 1 TO N2 VC4,I)*ioo. 

* 35E ' eflCXLICHT PR0FI ^’ NUHBER «, HAS BEEN SHIFTED. 
95 GO TO 14143 
98 REM OPTIONS 4,3,4 
00 K5«K3-3 

ssEs-^ssi.*”" 

5 Hii?^; 13 BEING ^shifted. AS IS m.' 

>0 N2.HI+1 

£ K3-K4 <>3 0 * K4 " K3 ™ EN RETURI * 

3 GO TO 14415 
« ft EINITlALIZE SYSTEM 
o S ^mALIIINC^TSTEH. 

3 RETURN 

i ISS 

5 F(1>*INT(F<i>j 

i Ht-F(I ) <0 ™ EN ^SE IF F<I» 5 o THEN F«>- 50 

> «2*FC1>+1 
f RETURN 

' REM SUBROUTINE shfter 

: S3™ SSK^LSSr* SHIFT 

01-I-K4 

0R Ql> * 2 THEN 14835 

next’i K7 '° n 

RETURN 

FOR I*N4 TO NS 
Ol*K4—I-fl 




tn 14053 IF Q1<N1 OR 01>N2 THEN 14045 

173 14840 V<K3#I)*V(K7»Q1) 

174 14845 NEXT Z 

175 14870 RETURN 

174 14875 FOR I*N4 TO NS V<K3»I>»100. 
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C t***t*s******t*»*****a**s*****s********x********s****************** 
C * 

C 4 SUBROUTINE ABEL 
C * 

C * OPTION ARE 

C * t> PERFORM ABEL INVERSION TAKING EMISSION/ABSORPTION BOUNDARY 

C * AS CORRECT. GIVES PROPER DREAMS MODEL INVERSION. 

C * 2> INVERT MAJOR PROFILE ASSUMING A TOTALLY EMITTING PROFILE. 

C * 3> INVERT MAJOR PROFILE ASSUMING A TOTALLY ABSORBING PROFILE. 

C * 4> TAKE EMISSION INTENSITY FROM MAJOR PROFILE AND ABSORBING 
C 4 SPECIES DISTRIBUTION FROM MINOR PROFILE. PERFORM LATERAL 

C 4 TO RADIAL INVERSION ON EMISSION INTENSITY DATA. 

C 4 

C 4 OUTPUT IS TO PROFILE 4 EXCEPT IF OPTION 2 IS CHOSEN? 

C 4 IN THAT CASE * OUTPUT MAY BE DIRECTED TO EITHER PROFILE 4 OR 7* 

C 4 WITH THE CHOICE BEING MADE WITHIN THE SUBROUTINE* NOT IN THE 
C 4 CONTROL ROUTINE. 

C 4 

c 44****a«x**xt««***x**«**x*******«*x**x*x***xx******x*xxx**«*****x*s 

14000 REM ABEL INVERSION SUBROUTINE 

14010 GOSUB 1S930 

1403S K4-K4 

14040 K7*4 

14045 IF K5<»0 OR K5>4 THEN 14090 

14050 IF F<3) *0 THEN IF K3*l OR K5-3 THEN 14105 

14055 GOSUB 22020 

14040 PRINT 'THE LATERAL TO RADIAL INVERSION WILL BE PERFORMED.' 

14075 GOSUB 15900 

14080 PRINT 'WILL BE USED AS AN INPUT LATERAL INTENSITY PROFILE.' 

14085 ON N5 GO TO 14125* 14145# 1412Sf> 14195 
14090 GO TO 22000 

14105 PRINT 'DEFAULT BACKLIGHT PROFILE WILL BE CONSTRUCTED.' 

14110 F(3)-l 

14115 FOR I«1 TO 50 V(K4*I>*100. 

14120 GO TO 14053 

14125 PRINT 'PROFILE '*K45' IS THE BACKLIGHT INTENSITY PROFILE.' 

14130 IF K5-3 THEN 14185 

14135 PRINT 'A FULL DREAMS INVERSION WILL BE PERFORMED. ' 

14140 GO TO 14225 
14145 K7-7 

14150 PRINT 'AN INVERSION WILL BE PERFORMED '? 

14155 PRINT 'ASSUMING A PURELY EMITTING PROFILE.' 

14140 PRINT 'OUTPUT UILL BE TO PROFILE 7 UNLESS YOU INPUT THE NUMERAL' 
14145 PRINT '4 IN RESPONSE TO THE NEXT QUESTION MARK.' 

14170 INPUT I* 

14175 IF I«*'4' THEN N7»4 
14180 GO TO 14225 

14185 PRINT 'INVERSION OF A PURELY ABSORBING PROFILE IS ASSUMED.' 

14190 GO TO 14225 
14195 K3—K4 
14194 GOSUB 15900 
14197 K3»»K4 

14200 PRINT 'IS THE ASSUMED RADIAL ABSORPTION DISTRIBUTION.' 

14205 K4-4 

14210 PRINT 'THE LATERAL PROFILE OBSERVED IS ASSUMED TO HAVE BEEN' 

14215 PRINT 'ATTENUATED BY THE ABSORBER IN PROFILE ' »K4?' *' 

14220 PRINT 'AND THE CALCULATIONS ARE DONE ACCORDINGLY.' 
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38 16225 FOR I»K1 TO K2 

39 16230 VU5»I)»0 

80 16235 V<K7»I>»0 

41 14240 NEXT I 

42 14245 PRINT 'OUTPUT IS TO PROFILE NUMBER '*K7 

42 142S0 IF KS»2 OR N5-4 THEN 16235 

44 16255 IF F<4)00 AND F<5)<>1 THEN 16260 ELSE 16285 

43 16240 PRINT 'FLAGS DISALLOW RADIAL TO LATERAL CONVERSION IN ABEL' 

44 14265 PRINT 'SUBROUTINE. FC4>»'«F(4)•'F(5>-'fF(5) 

47 14270 60 TO 22005 

48 14280 REM INVERT ABSORPTION REGION 

-49 16285 IF K5«2 OR Ml*50 OR K5-4 OR K2i*Ml AND K5<>3 THEN 16370 

70 16270 IF N5»3 OR Kl.'-H2 THEN N8-N1 ELSE N8*M2 

71 16300 FOR I»N8 TO K2 

72 16305 FOR J»I TO K2 

73 16310 IF V<K6.J>*0 THEN 16315 ELSE 16330 

74 16315 PRINT 'V<'»K6?'.' i JJ'>«0r WHICH IS AN ILLEGAL BACKLIGHT 't 

73 16320 PRINT'INTENSITY VALUE. RETURN AND, CORRECT ERROR.' 

74 16325 RETURN 

77 16330 V<K7.I)»V<K7.I>+B<I.J>*LGTCV<K6.J>/VCK3»J>> 

78 16335 NEXT J 

79 16340 VCK7»I>«V<N7.I)*.5*A2 

80 16345 NEXT I 

81 16350 IF K5»3 THEN RETURN 

82 14355 REM COMPENSATE INTENSITY PROFILE FOR ABSORPTION EFFECTS. 

83 16360 REM AND STORE COMPENSATED PROFILE IN VC 16.4). 

84 16365 REM IF NO ABSGRPTION. SIMPLY TRANSFER INTENSITY DATA TO VC15.J>. 

83 16370 IF K2C-M1 OR K5«2 THEN 16465 

84 16375 IF K1>M1 THEN 16475 

87 16380 REM AT THIS POINT. ONLY K5»l OR K5-4 MAY EXECUTE. 

88 16385 IF K5=l THEN K9*K7 ELSE K9-K4 

89 14390 FOR I*K1 TO Ml 

90 16395 FOR J-M2 TO K2 

91 16400 V<15.I>*V<15.I)+A<I.J)*V(K9.J) 

92 16405 NEXT J 

93 14410 V<15.I>*lM<K3.I>*10*«<V<15»I>*Al> 

94 * 16415 NEXT I 

93 16420 REM CONVERT INTENSITY TO EMISSION 

94 16425 IF K5*2 THEN N9«K2 ELSE K9-M1 

97 * 16430 FOR I-Kl TO K9 

98 16435 FOR J-I TO K9 

99 16440 V<K7.I)*VCK7.I)+B(I.J)*V<15»J> 

100 16445 NEXT J 

101 16450 V<K7»I)»V<K7fI)*.5*A2**2 

102 16455 NEXT I 

103 16460 RETURN 

104 16465 FOR I»K1 TO K2 V<15.I)*V(K3.I) 

103 14470 GO TO 16425 

104 14475 IF K5»l THEN RETURN 

107 16480 'INTENSITY DATA NOT WITHIN OPERATING ZONES IN SUBROUTINE ABEL.' 

108 14485 PRINT 'USE YOUR JUDGEMENT—THIS MAY BE INCONSEQUENTIAL.' 

109 16490 RETURN 
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1 C tiMttyytxtttmmttmyttitttttmtmvtvtmfnttmtitttftmxt 

2 C 9 

3 C 9 SUBROUTINE PRINT-PLOT 

4 C * 

3 6 9 OPTIONS ARE 

4 C * 1) PLOT USING DEAN STUELAND'S HINI-PLOT ROUTINE <UITH OPTIONS 

7 C 9 HARDWIRED). 

• C * 2) PLOT USING DEAN STUELAND'S PEPSUB ROUTINE <UITH HOST OPTIONS 

9 C 9 HARDWIRED). 

10 C 9 3) PLOT USING FIRST HINI-PLOT AND THEN PEPSUB* 

11 C * 10) PRINT A LISTING OF THE CONTENTS OF THE MAJOR PROFILE AND 

12 C * THE BASE 10 LOG OF SAID DATA. 

13 C * 11) THROUGH 13) COMBINE OPTION 10 WITH OPTIONS 1 THROUGH 3 

14 C t RESPECTIVELY. 

13 C t 

14 C 9 ALL OPERATIONS USE ONLY THE MAJOR PROFILE. THE MINOR PROFILE 

17 C * IS IRRELEVANT. 

13 C * 

17 C ****************************************************************** 

8000 REH OUTPUT ROUTINE 

8001 GOSUB 1S930 
8010 02-K1-1 

8020 IF K3<1 OR KS>13 THEN 8030 ELSE IF K3>3 AND K3<10 THEN 8030 
8025 IF K5>»10 THEN 8050 ELSE 8140 
8030 GO TO 22000 
8050 K5-K3-10 
8033 PRINT 'HOME') 

8040 INPUT Qt 
8043 PRINT ' .' 

8048 GO TO 8100 
8070 IF K2>*M2 THEN 8210 
8073 Tt*'NO' 

8080 SS*'YES' 

8083 GO TO 8247 

8100 PRINT 'PROFILE 'pK3)'» THE ')N*<K3>I' PROFILE IS PRINTED BELOW.' 
8105 PRINT ' ' 

8110 PRINT r 'INDEX'»Mt<K3>*'LOG V(I»J>' 

8113 Qt«M*<K3> 

8115 FOR I*K1 TO K2 

8120 IF VCK3»IX>0 THEN Q4*LGT(ABS(V<K3* I) )) ELSE Q4—1234S. 

8123 IF LEN(Q*)<14 THEN PRINTpIp V<K3pI) pQ4 ELSE FRINT»Z»U<K3»I>» *04 
8130 NEXT I 
8135 PRINT ' ' 

8140 IF K3-0 THEN RETURN 
8143 F(7)«0 
8145 FOR I*K1 TO K2 
8130 X<I-Q2)»I 
8135 Y<I-Q2>*V<K3»I> 

8140 NEXT £ 

8170 T4-'EMISSION' 

8173 Y4«*' ' 

8180 IF CNT(M*(K3> pT*)>0 THEN Y4»*G*fl3> 

8183 T««'RADIAL' 

8190 IF CNT(M4(K3)pTt)>0 THEN Y4t«0*<15) 

8193 T*«'EPSILON' 

8200 IF CNT<M4(K3)pT*) v 0 THEN Y44»Q«(13) 

8203 IF Y490Q$<13) THEN Y4«*Q*<14> 
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S9 

40 

4t 

42 

43 

44 

43 

44 
47 
40 
47 

70 

71 

72 

73 

74 

75 
74 

77 

78 
77 
00 
•1 
92 
83 


04 

07 


TO 

01 

02 

03 

04 

03 

04 

07. 

08- 


100 

101 

102 

103 

104 

103 

104 

107 

108 
100 
110 
111 
112 

113 

114 


0208 GO TO 8070 

8210 PRINT 'PLOT OPTIONS. SHOULD ABSORPTION REGION"S PLOT '» 

8212 PRINT 'SYMBOL BE DISTINCT 't 
8215 INPUT T* 

8220 IF CMT<T9*04(17))>0 AND T«<>'YES' THEN 8210 

8225 IF T*»'0'0R T*='-2'0RTt='YES'0RT4*'Y' THEN T4-'YES'ELSET4*'NO' 
8230 IF T4*'N0' THEN PRINT 'SAME PLOT SYMBOL USED THROUGHOUT.' 

8235 IF T«*'YES' THEN PRINT 'PLOT HAS 2 DIFFERENT SYMBOLS.' 

8240 PRINT 'SHOULD ABSORPTION REGION BE SCALED THE SAME AS '» 

8242 PRINT 'THE EMISSION REGION'I 

8243 INPUT S* 

8247 Q1«*S« 

8250 IF CNT(S**Q*<17) >>0 AND SfO'YES' THEN 8240 
8255 a3*Q4aQ3»a6*Q7=«QS*0 

8240 IFQl*»'Y'0R01*='0'0RaH-'-2'0Rai**'YES'THENQ14»'YES'ELSEO14*'NO' 

8245 IF K2-K1<1 THEN 8270 ELSE 8280 

8270 'TOO FEU POINTS. PLOTTING ABANDON.' 

8275 RETURN 

8280 IF K1>M1 THEN 8295 

8283 FOR I=Kl TO Ml 

8287 IF V(K3*I>>Q4 THEN Q4=V<K3*I> 

8289 NEXT I 

8290 FOR I=K1 TO Ml 

8292 IF V<K3*I><03 THEN Q3-V<K3*I> 

8294 NEXT I 

8295 IF K2<M2 THEN 8310 
8300 FOR I*M2 TO K2 

8302 IF V(K3*I)>04 THEN 04=V<K3*I> 

8304 NEXT I 

8305 FOR I-M2 TO K2 

8307 IF V(K3#I3<Q5 THEN 05»V<K3fI) 

8309 NEXT I 

8310 IF 014-'YES' OR K2<M2 OR K1>M1 THEN 8315 ELSE 8340 
8315 IF Q4>Q4 THEN 04-04 

8320 IF QS<Q3 THEN 03*05 

8323 IF T4»'N0' OR K1>M1 OR K2'M2 THEN 02*K2-Klfl ELSE 02-M1-K141 
8328 IF 02OK2-K1+1 THEN F(7)»l ELSE F<7>«0 
8330 GO TO 8445 

8333 REM DATA ON BOTH SIDES OF BOUNDARY* SCALED DIFFERENTLY 
8340 IF T4='YES' THEN 02-Mi-Kl + l ELSE CJ2=K2-K1+1 
8343 IF Q3-0 AND 05=0 THEN 8350 ELSE 8345 

8350 IF 0600 AND 040 0 THEN 07=04/04 

8351 IF 0600 AND 04=0 THEN 04=04 

8352 IF 04=04 OR 04=0 THEN 8445 
8355 GO TO 8420 

8345 IF 04=0 AND Q4=0 THEN 8370 ELSE 8385 
0370 IF 0500 AND 0300. THEN 07=03/03 
8372 IF 0500 AND 03=0 THEN 03=03 

8374 IF 05*03 THEN 8445 ELSE IF 05=0 THEN 8445 

8375 GO TO 8420 

8383 REM SOME * AND SOME - VALUES. 

8383 IF 05=0 AND 04=0 THEN 8445 

8387 IF 03=0 AND 04-0 THEN 8389 ELSE 8395 

8389 03=05 

8391 Q4=Q4 

8393 GO TO 8445 

8393 IF 05=0 AND 0400 THEN 07-04/04 
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US 8397 IF 04*0 AND 0300 THEN 07*03/03 

114 8400 IF 0700 THEN 8420 

117 8402 IF 03*0 AND 04*0 THEN 9424 

lit 8404 IF 03*0 THEN 8432 

U» 8404 IF 04*0 AND 05-0 THEN 8428 

120 8408 IF 04-0 THEN 8434 

121 8410 07-03/04 

122 8412 08*03/04 

123 8414 IF ABSC08)>APS(Q7) THEN 03*08*04 ELSE 04*03/08 

124 8418 IF ABS( 06 ) x ABS< 03 > THEN 07*04/04 ELSE 07*03/05 

125 8420 FOR I*H2 TO K2 Y< I~Klfl)*Q7*Y< I-Kl+1) 

124 8421 F<7)*1 

127 8422 GO TO 8445 

128 8424 03—05**2/04 

127 8424 GO TO 8397 

130 8428 04-ABSC06**2/03) 

131 8430 GO TO 8395 

132 8432 03*04*05/04 

133 8434 GO TO 8410 

134 8434 04*03/05*06 

135 8438 GO TO 8410 

134 8445 IF K5—2 THEN 8500 

137 8450 GOSUB 10009 

138 8451 F<7)*0 

137 8453 IF Y14*'ABORT' THEN RETURN 

140 8435 IF (K2—K1+1>*02 THEN 8495 

141 8440 07-02 

142 8445 02—K2—HI 

143 8470 FOR 1*1 TO Q2 

144 8475 X<I>*X< 07+1> 

145 8480 T<I)-Y<07+I> 

144 8483 NEXT I 

147 8485 Y14-'OVERLAY' 

148 8490 IF 03004 THEN GOSUB 10184 

147 8493 PRINT ' ' 

150 8495 TF K5*3 THEN 8553 ELSE RETURN 

151 8497 REM PEPSUB CALLING SEQUENCE 

152 8500 GOSUB 9000 

153 8502 F<7>*0 

154* 8503 IF 22*-'ABORT' THEN Z*»'ABORT' 

155 8504 IF 24-'ABORT' THEN RETURN 

154 8505 IF <K2-N1F1>*02 THEN RETURN 

157 8510 07*02 

158 8515 Q2-K2-N1 

157 8520 FOR 1-1 TO 02 

140 8525 X<I)*X<07+I> 

141 8530 Y<I)*Y<Q7+I> 

142 8535 NEXT I 

143 8540 Z4*'OVERLAY' 

144 8545 GOSUB 9124 

145 8550 RETURN 

144 8555 IF 02-K2-K1+1 THEN 8500 

147 8540 FOR 1*1 TO 02 

148 8545 X(07+X>-XCI> 

147 8570 T(Q7+I)*Y«I> 

177 8575 NEXT I 

171 8580 Q2-K2-K1+1-Q2 



172 0590 FOR I-Kl TO 02 X(I-K1+1)*I 

173 8595 FOR I*K1 TO 02 Yd-Kl + X )*W<K3rI) 

174 0598 F(7>-1 

175 0400 GO TO 8500 
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174 C t****************************************************************** 1 

177 C * I 

170 C * MODIFIED PEPSUB. j 

iso C **************** t *********#**********************'****************** 1 

181 9000 REM THIS IE A MODIFICATION OF PEPSUB. 

182 9002 REM PEPSUB HAS WRITTEN BY DEAN STUELAND. 

103 9004 REM MODIFIED BY A. SCHEELINE 8/7/75 AMD d/8/77. 

184 9018 IF 2i: 0 THEN 9116 

185 9020 LET Z2*0 ^ ^ _^ , rtr fyTyyyryv yrtr ^ r 

187 9024 LET 23**'t.♦♦♦*##*#*♦ #.******♦#*#' 

188 9028 'A> ENABLE HARD COPY PLOTTING'? 

187 9030 INPUT 22* 

170 9031 IF Yl**'ABORT' THEN 22**'ABORT' 

171 9032 IF 22**'-1' THEN 9686 

172 9033 IF 22*-'ABORT' THEN 9686 

173 9034 IF 22*-'-2' THEN LET 22*-'YES' 

174 9036 IF Z2*—'NO' OR 22*-'YES' THEM 9042 

173 9038 ' ' 

174 9040 60 TO 9028 __ 

177 7042 IF 22*-'NO' THEN LET 27*-' ' ELSE LET 27*-'8GSP»PT 

178 9044 IF 22*-'NO' THEN 9078 

177 9046 22-10.8 

200 9078 ' ' 

201 9082 OPEN PLOT FOR SYMBOLIC OUTPUT AS FILE 9 

202 9084 LET 29-0 _ 

203 9088 IF 27*0' ' THEN PRINT ON 9 IN IMAGE Zl*tZ7* 

204 9090 IF 27*-' ' THEN 9110 

203 9104 LET 25*-'PLOTTER FEN/LIQ' 

206 9108 PRINT ON 9 IN IMAGE Z1*:Z5« 

207 9110 LET 22*-'8X0T CHEMISTRY*UALTERS.BASIC-PEP' 

208 9112 PRINT ON 9 IN IMAGE Z1*:Z2* 

207 7114 PRINT ON 9 IN IMAGE '22.2222':Z2 

210 9114 LET 21*21+1 

211 7117 LET XS-O 

212 9118 IF 24-5 THEN 9704 

213 9120 ' ' 

214 . 9121 LET 29-0 

213 9122 'D> PLOT STATUS'? 

216 9124 INPUT 2* 

217 9126 IF 2*-'-l' THEN LET 29—1 

218 9127 IF 29—1 AND 24»>1 THEN LET 23*2 

217 9129 IF 29—1 THEN 2*='ABORT' 

220 9130 IF 2*«'-2' THEN LET Z*»'NEU' 

221 9131 IF Yl*—'ABORT' THEN 2*-'AB0RT' 

222 * 9132 LET 23-0 

223 7133 IF 2*-'ABORT' THEN 9686 

224 7134 IF 2*-'NEW' THEN 23-1 

223 7134 IF 2*-'OVERLAY' THEN LET 23-2 

224 7138 IF 2*-'LAST' THEN LET 23-3 

227 7140 IF 2*-'DONE' THEN LET Z3-4 

228 7142 IF 2*-'CLOSE' THEN LET 23-4 

227 7144 IF 23-0 THEN 9118 

230 7146 IF 23*2 AND 24*2 THEN 9160 

231 7148 IF 2302 THEN 9160 

232 7150 IF 23*2 AMD 24-1 THEN 9160 
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233 9132 ' ' 

234 4134 '**rOU CANNOT 00 AN OVERLAY WITHOUT AT LEAST' 

233 9134 ' ONE NEW PLOT * 

234 9138 GO TO 9118 

237 4140 LET Z9*Z3 

238 9142 ON Z3 GO TO ?1&8'9164'9168»9664 

234 9144 PRINT ON 9 IN IMAGE Zl*:'OVERLAY' 

240 9144 GO TO 9274 

241 4148 PRINT ON 9 IN IMAGE ZltS'NEW PLOT' 

242 9170 Z*«'-2' 

243 9190 LET Z9»0 

244 9192 REN — TITLE — 

243 9194 Z24»N4(K3>+' '*04(12) 

244 9212 PRINT ON 9 IN INAGE Z14IZ24 

247 9220 REM — LABEL FOR X-AXIS — 

248 9224 Z24-Y4* 

244 4240 PRINT ON 9 IN IMAGE Z14SZ24 

230 9248 REM — Y-AXIS LABEL — 

231 9230 Z24-M4(K3) • 

232 9244 PRINT ON 9 IN IMAGE Zlt:Z24 

233 9272 REM — SYMBOL AT EACH DATA POINT — 

234 9274 IF T«»'NO' OR XC1X»M1 THEN ZB«-2 ELSE Z8-4 

233 9288 IF Z8»-2 OR Z8=-3 THEN 9298 

234 9294 PRINT ON 9 IN IMAGE 'ZX'IZ8 

237 9294 GO TO 9304 

238 9298 PRINT ON 9 IN IMAGE '22':'-9' 

239 9302 REM — LINE TO CONNECT DATA POINTS — 

240 9304 IF T«-'NO' OR X(IX*M1 THEN Z7*-2 ELSE Z7-1 

241 9320 IF Z7—2 OR Z7—3 THEN 9338 

242 9334 PRINT ON 9 IN IMAGE *22':Z7 

243 9334 GO TO 9344 

244 9338 PRINT ON 9 IN IMAGE '22':'-9' 

243 9344 REM — MAXIMUM AND MINIMUM — 

244 9344 IF Z3-2 THEN 9374 

247 9348 Z8*K2 

248 9342 Z7-K1 

249 9374 IF Z7-ZB THEN PRINT '4* THE MAX 1 MIN CANNOT BE EQUAL' 

270 9378 IF Z7»Z3 THEN PRINT 'BUT WE FIXED THAT FOR YOU.' 

271 9379 IF Z7»Z8 THEN Z8-Z8+1 

272 9380 PRINT ON 9 IN IMAGE Z3*J Z7.Z8 

273 9382 GO TO 9390 

274 9388 REM — MAX 1 MIN ON T AXIS 

273 9390 LET Z4*0 

274 9394 Z8»Q4 

277 9410 Z7»03 

278 9420 IF Z?OZ8 THEN 9428 

279 9422 ' ' 

280 9424 PRINT '** THE MAX t MIN CANNOT BE EQUAL * BUT UE' 'LL FIX THAT.' 

281 9424 Z3~Z8+l 

282 9428 PRINT ON 9 IN IMAGE Z3*:Z7»Z8 

283 9430 GO TO 9434 

284 9434 REM — PAGE SIZE — 

283 9434 29*0 

284 9488 PRINT ON 9 IN IMAGE Zl*:'NUMBER' 

287 9490 PRINT ON 9 IN IMAGE Z3*:Z2>Z2 

288 9492 IF Z2*«'-l' THEN LET Z9*-l 

289 9344 IF Z9<0 THEN 9432 
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290 

2*1 

292 

293 

294 

293 

294 
297 


301 

302 


303 

304 
307 
300 

309 

310 

311 

312 

313 

314 

313 

314 
317 
310 

319 

320 

321 

322 

323 

324 

323 

324 
327 
320 

329 

330 

331 

332 


334 

333 

334 
337 


339 

340 


9372 

9374 

9380 

9382 

9384 

9390 

9392 

9594 

9394 

9398 

9400 

9432 

9434 

9434 

9438 

9440 

9442 

9444 

9444 

9448 

9450 

9631 

9432 

9634 

9436 

9638 

9440 

9442 

9444 

9446 

9468 

9470 

9472 

9474 

7474 

9478 

9480 

9482 

9484 

9484 

9488 

9490 

9692 

9494 

9494 

9698 

9700 

9702 

9704 

9704 

9708 


— INPUT PROM X * Y ARRAYS 


REM 
24-02 

IF 24<1 OR Z4>53 THEN 29—1 
IF 29—1 THEN 24—1 
IF 24—1 THEN 9432 

F0R Z 23-l l T0 M 24 PRI " T lMACE 21,5 'DATAFQU.OUS' ELSE 9632 

NEXT T 23 N 9 IN IMAGE Z3tJ *<Z3)»Y<23> 

LET 24-2441 
GO TO 9434 

PRINT ON 9 IN IMAGE 21ft‘EARLY ESCAPE' 

IF Z4<5 THEN LET 29—1 

PRINT ON 9 IN IMAGE 'ZZZZZ' J'-1 -1' 

IF Z9—1 THEN PRINT ON 9 IN IMAGE 21ft 'NODATA' 

LET Z 24-0 l THEN PRINT ° N 9 IN IhAGE Z1 * : ' EN * 0FDAr *' 
r EM — END OF ONE PLOT — 

25! — CHECK THE STATUS OF THE PLOT — 

— RETURN FOR 'NEU' — 

IF 290-1 THEN LET Z4-Z3 
IF 29—1 AND 23-2 THEN LET Z4-1 
IF 29—1 THEN 94S4 
IF Z3>2 THEN 9444 
IF F<7)«0 THEN PRINT ' ' 

ZF # F <7)*0 THEN PRINT 'NORMAL RETURN' 

RETURN 

tl7 22.-9E0F-" ' RETURN ' F0R LEAVINQ BflSIC ~ 

PRINT ON 9 IN IMAGE Z1*:Z2« 

CLOSE 9 

'FILE HAS BEEN CLOSED' 

IF Zf-'CLOSE' THEN 9494 
'EXIT FROM BASIC' 

EXEC'8ASG»A PLOT. 

EXEC 'OADDrP PLOT. . # 

STOP 

'ESCAPE RETURN ' 


RETURN^ 1 THEN LET Z4 * 23 ELSE U£T Z4m ° 

'NO EXIT FROM BASIC' 

LET I Z4»S° ULD BE ™ E LAST RETURN FR0M THE PEP SUBROUTINE' 
RETURN 

'FILE WAS CLOSED ON THE LAST CALL' 

'SORRY* NO MORE PLOTS FROM PEPSUB.' 

RETURN 





C t*S*SX**XXX*XXXXXXXX«XXXXt*«XXX*XXXXXX*XXX»X**XX*XXXXXXXXXXXXXXXXXXX 

c « 

C * MODIFIES MINI—PLOT 
C * 

C *xxxxxxxxxxx*x*x***x*x*xxxxx*»xtx*x*x*xxx*x**xxxxxxxxxxxx*x*xxxxxx*x 

tOOOO REM MINIPLOT SUBROUTINE. WRITTEN BY BEAN STUELAND. 

10005 REM MODIFIED BY A. SCHEELINE 8/3/75. 

10009 LET ZO-20+1 
10012 LET Y2**' ' 

10015 IF ZO>1 THEN 10027 
10018 DIM Z(60r30) 

10021 LET Y8X*' ' 

10024 LET Xl-30 
10027 ' ' 

10030 'D) PLOT STATUS 'l 
10033 INPUT Yl* 

10035 IF Yl**'ABORT' THEN 10471 

10036 IF Yl**'-2' THEN LET Y1**'NEW' 

10039 IF Vl*»'-1' THEN 10933 

10042 IF Yl**'OVERLAY' AND YS*»'N£W' THEM 10186 
10045 IF Y1*0'OVERLAY' THEN 10060 
10048 ' * 

10051 'X* YOU CANNOT HAVE AN OVERLAY WITHOUT AT LEAST ONE NEW PLOT' 

10054 ' ' 

10057 00 TO 10027 

10060 IF YKO'NEM' THEN 10027 

10061 LET Y8*-' ' 

10063 FOR Y7»l TO XI 
10066 FOR Y8-1 TO 60 
10069 LET Z(Y8rY7)»5 
10072 NEXT Y8 
10075 NEXT Y7 
10078 LET Y7*5 

10120 Y3*-M*CK3>+' '+Q«<12> 

10140 REM Y4* ASSIGNED EXTERNALLY. 

10162 Y5**M*<K3> 

10168 LET X*»Y3* 

10171 LET Y8*LEN«X*> 

10174 IF Y8<*X1 THEN 10186 
10177 ' ' 

10180 'XX THE Y AXIS CAN HAVE NO MORE THAN '*X1*' CHARACTERS' 

10183 RETURN 

10186 IF T**'NO' OR X(lK»Mt THEN Y7»40 ELSE Y7-6 
10203 IF Yl**'OVERLAY' THEN GO TO 10393 
10240 Y2*K2 
10255 Y1*K1 

10264 IF Y1>Y2 THEN EXCHANGE Yl t Y2 

10267 IF Y2>Y1 THEN 10276 

10270 'X* THE MAX S MIN CANNOT BE EQUAL' 

10273 RETURN 
10276 Y4-04 
10297 Y3-03 

10306 IF Y3>Y4 THEN EXCHANGE Y3rY4 
10309 IF Y4>Y3 THEN 10393 
10312 ' ' 

10315 'X* THE MAX S MIN CANNOT BE EQUAL' 

10318 RETURN 
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39« 10321 LET Y1*Y2*Y3*Y4*0 

399 10393 Y8-Q2 

400 10417 REM-SORT ARRAYS- 

401 10420 IF Y8>23 AND YlOO AND Y20Y1 THEN 10444 

402 10423 FOR Y9*l TO Y8 

403 10424 FOR Y0-Y9 TO Y8 

404 10429 IF X<Y9)<»X<YO> THEN 10438 

403 10432 EXCHANGE X(Y9)»X<Y0> 

404 10433 EXCHANGE Y<Y9>*Y<Y0> 

407 10438 NEXT YO 

400 10441 NEXT Y9 

409 10444 IF Y1*»'0VERLAY' THEN 10316 

410 10447 IF Y1«0 AND Y2*0 AND T3»0 AND Y4*0 THEN G0SU8 10483 

411 10430 IF Y10Y2 AND Y30Y4 THEN 10308 

412 10433 * ' 

413 10434 '«* THE DIFFERENCE BETWEEN THE LARGEST 1 SMALLEST VALUES IS TOO SMALL 

414 10439 PRINT ' X MIN«'*Y1 

413 10442 PRINT ' X MAX*'IY2 

41* 10443 PRINT ' Y MIN*' »Y3 

417 10448 PRINT ' Y MAX-'tY4 

410 10471 ' ' 

419 10474 ' ERROR RETURN' 

420 10477 ' ' 

421 10480 RETURN 

422 10483 LET Y1*X<1> 

423 10484 LET Y2-X<Y3> 

424 10489 LET Y3*Y<1> 

423 10492 LET Y4-Y<1> 

42* 10493 FOR Y9*l TO Y8 

427 10498 IF Y<Y9XY3 THEN LET Y3-YCY9) 

428 10301 IF Y<Y9)>Y4 THEN LET Y4-YCY9) 

429 10504 NEXT Y9 

430 10307 RETURN 

431 10508 LET Yl*Yl-<Y2-Y1)/39 

432 10309 LET Y3*Y3-<Y4-Y3)/<X1-1) ‘ 

433 10310 LET Y5*<Y2-Y1>/60 

434 10513 LET YA-<Y4-T3)/X1 

433 10314 IF Y1S*'OVERLAY' THEN LET Yl*Yl-<Y2-Y1)/39 

43* 10517 IF Yl»*'OVERLAY' THEN LET Y3*Y3-<Y4-Y3)/<X1-1> 

437 . 10344 LET Y9**'N0' 

438 10549 LET X2*0 

439 10332 FOR Y9*l TO Y8 

440 10333 IF XCY9XY1 THEN 10717 

441 10358 IF X(Y9>>Y2 AND Y8^*23 THEN 10720 

442 10541 IF X<Y9 >>Y2 THEN 10717 

443 10344 IF X2>0 THEN 10S88 

444 10347 LET XO*INPf<X<Y9>-Y1>/Y5+.5> 

443 10370 LET Y0=INP<(Y(Y9>-Y3>/Y6+.S> 

44* 10573 IF X0*0 OR Y0*0 THEN 10717 

447 10374 IF Y0<1 OR Y0>X1 THEN 10687 

448 10379 LET 2<XO»YO)*Y7 

449 10382 LET X2»Y9 

430 10383 60 TO 10717 

431 10388 LET X3»X(Y9)-X(X2> 

432 10591 LET X4*ABS<Y(Y?)-Y(X2>) 

433 10594 IF X3<< Y5/2) AND X4<(Y6/2> THEN 10717 

434 10397 .LET X3»INP< (X(Y9>“Yi)/ , YS+.3) 
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485 

456 

457 

458 
45? 

440 

441 

442 


445 

444 

447 

448 
44? 

470 

471 

472 

473 

474 

475 
474 

477 

478 
47? 

480 

481 

482 


485 

484 

487 


4?0 

4?1 

4?2 

473 
4?4 
475 

474 

477 

478 
477 

500 

501 


503 

504 

505 
504 

507 

508 
50? 

510 

511 


10400 

10403 

10406 

10609 

10612 

1061S 

10618 

10621 

10424 

10627 

10630 

10633 

10436 

1063? 

10642 

10645 

10648 

10651 

10654 

10657 

10660 

10663 

10666 

10669 

10472 

10675 

10678 

10681 

10484 

10687 

10690 

10693 

10696 

10699 

10702 


LET X4*INPC<Y<Y9)-Y3)/Y6+.3> 

IF X4<1 OR X4>X1 THEN 10687 
IF X3*X0 AND X4»Y0 THEN 10717 
IF 2<X3rX4)«5 THEN LET Z(X3»X4)«Y7 
IF Z<X3,X4>«34 THEN LET Z<X3.X4)-Y7 
IF Y9*«'N0' THEN 10717 
IF XC-:>X3 THEN 10643 

REM - THE X VALUE IS FIXED - 

LET X8-T0 
LET X9*X4 

IF X8>X? THEN EXCHANGE X8rX9 
FOR X6*X8 TO X? 

IF Z(X0»X6)»3 THEN LET Z<X0.X6>*34 
NEXT X4 
GO TO 10708 

REM- FIND THE SLOPE - - 

LET X3»X0 
LET X4»Y0 

LET X7*<X4-X6)7<X3-X3) 

LET X X9-lNpfx?) ET X9 * X7+ * 5 LET X?-ABS<X7-.3> 

IF X?»0 THEN 10670 
FOR X8-1 TO X9 

IF X7>0 THEN LET X6-X6+1 ELSE LET X6-X6-1 

NEXT ( X8 fX6> * 5 ™ EN LET Z<X5 ’ X6)m34 
LET X3-X5+1 

IF Z<X3rX6>«5 THEN LET Z(X3»X6)>34 

IF X3<X3 THEN 10654 ELSE 10708 

IF Y0<1 OR X4<1 THEN LET X4*l ELSE LET X4*X1 

IF X2>0 AND Z<X3fX4)<>5 AND Z<X3»X4><>34 THEN 10708 

if and z(xo,x4,<>3 - thew 10708 

lo intoT* LET Z ' X0,1) “ 7 ELSE LET 


;° 70 = X 2«0 THEN LET Z(X0.X1>.« ELSE LET KX3.XIJ-* 

10708 LET X0*X3 
10711 LET Y0*X4 
10714 LET X2»Y9 

10717 NEXT Y? 

10718 LET Yl*Yl+(Y2-Yl)/60 

10719 LET Y3-Y3+<Y4-Y3)/X1 

10720 IF F<7)«1 THEN RETURN 

10721 PRINT ' ' 

10723 'HOME'! 

10726 INPUT Y7? 

1072? IF Y3*»'*PL0T*' THEN 10750 

10732 LET X*-Y3* 

10733 LET X0=LEN(X4) 

10738 LET Y0-INP(<72-X0)/2*.5) 

10741 PRINT TABCY0> ! 

10744 PRINT X* 

10747 GO TO 10733 

10750 PRINT TABOO) i 'PLOT '!Z0 

10733 PRINT!' X'! 

10754 FOR X0*1 TO 5 
1075? PRINT - -- | 
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512 10762 NEXT X0 

513 10765 LET X4-' 

514 10768 LET Y*»Y3* 

515 10771 LET YO*LEN<Yt> 

516 10774 LET XO«INP<<XI-Y0>/2+.5> 

*17 10777 LET Y74»ADD«<Xi#Yt»XO> 

518 10780 LET Y9»4 

519 10783 FOR Y0»1 TO XI 

520 10786 LET X*»Y*»' ' 

521 1078? FOR X0=1 TO 60 

522 10792 LET X2-X1+1-Y0 

523 10795 LET Y8*2(X0»X2) 

524 10798 LET X*»PUT*<Y*,XOrY8> 

525 10801 LET Y*«X* 

526 10804 NEXT XO 

527 10807 LET Y4-Y7* 

528 10810 LET X0-GET<Y4#YO) 

529 10813 LET Y*»' ' 

530 10816 LET Y6*-PUT4<Y4»1»X0) 

531 10819 PRINT Y6*« 

532 10822 LET Y9-Y9+1 

533 10825 IF Y9*5 THEN LET Y9«0 

534 10828 IF YOOl AND YOOXl THEN 10840 

83 5 10831 IF Y0*l THEN LET Y8»V4 ELSE LET Y8-Y3 

836 10834 PRINT IN IMAGE '*.4*44*4'JY8> 

537 10837 GO TO 10849 

538 10840 IF Y?<>0 THEN 10853 

539 10843 LET X0»Y4-CY0-1>*Y6 

540 10846 PRINT IN IMAGE '*.444*44'SXOI 

541 10849 PRINT '+'; 

542 10852 GO TO 10838 

543 10833 PRINT ' :'| 

544 10838 PRINT X* 

545 10861 NEXT YO 

544 10864 PRINT ' X'» 

547 10867 FOR XO-1 TO 3 

548 10870 PRINT '+-- * f 

549 10873 NEXT XO 

550 10876 FOR. X0»1 TO 4 

551 10879 LET Y9»Y1+12*X0*Y3 

552 10882 LET Y8-10+X0412-4 

553 10885 PRINT TAB(Y8>» 

554 10888 PRINT IN IMAGE '*.**•*«*'JY9I 

553 10891 NEXT XO 

554 10894 ' ' 

537 10897 PRINT TAB<6>* 

558 10900 PRINT IN IMAGE '*.******':Y1I 

539 10903 PRINT TA8(63>? 

540 10904 PRINT IN IMAGE'*•**«***'JY2 

341 10909 LET X*»Y4* 

542 10912 LET X0*LEN(X4> 

543 10915 LET YO»INP((72-X0>/2+.3> 

544 10918 PRINT TAB<Y0WY4* 

545 10921 LET Y8*»'NEU' 

544 10924 ' ' 

547 19927 'NORMAL RETURN' 

548 10930 RETURN 
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* SUBROUTINE SMOOTH 

* 

* OPTIONS ARE 

I 5? H0T SMOOTH ACROSS EMISSION/ABSORPTION BOUNDARY. 

* 2) IN SMOOTHING* IGNORE EMISSION/ABSORPTION BOUNDARY. 


£ | -— — r.«0wnr i lun UUUntUHNT . * 

fwofJirSJwSnSrsMS?"*^”**********”*****"***”*”****"***** 

18005 GOSUB 15930 


18020 

10030 

18035 

18040 

18045 

18050 

18055 

18060 

18065 

18070 

18075 

18000 

18085 

18090 

18095 

18100 

18105 

18110 

18115 

18120 

18125 

18130 

18135 

18140 

18145 

18150 

18155 

18160 

18165 

18170 

18175 

18180 

18185 

18190 

18195 

18200 

18215 

18220 

10225 

18230 

18235 


IF K501 AND N5<>2 THEN 13200 
GOSUB 15900 

GOSUB -“£o BE SM00THEI,, USING A TRIANGULAR SMOOTHING FUNCTION* 

PRINT 'THE UNSMOOTHEB PROFILE IS STORED IN' 

K3**K4 
GOSUB 15900 
K3--K4 

FOR I»K1 TO K2 V<K4*I)*V<K3*I) 

K6-K2-K1 

IF K6*0 THEN 18215 

IF K1«M1 AND K5»l THEN 1 8190 

IF K5»l THEN 18100 

PRINT 'EMISSION—ABSORPTION BOUNDARY BEING IGNORED DUE TO 
PRINT 'OPTION CHOICE.' 

Kl^Kl+1 > * <W<K4 » K 1)+U(K4»K1+I > )/2 

IF K5»l AND M15K1 THEN K6-M1-1 
IF K5»2 THEN K6*K2-1 

IF K5*l THEN IF M1>K2 OR M1<K1 THEN K6-K2-1 
IF K1>K6 THEN 18145 
FOR I-Kl TO K6 

V<K3*I)*(V(K4,I-l)+2*U<K4.I)+V<K4*I+l> J/4 
NEXT I 

V(K3*K6+l)«(V(K4*K6)+UCK4*K6+l))/2 

IF <K6+1)»K2 THEN RETURN 

IF <K6+1)>K2 THEN 18225 

K1-M2+1 

K6-K2-1 

IF K1>K2 THEN RETURN 
IF K1»K2 THEN 18145 

V(K3*M2)-(V<K4*M2)+V<K4.Kl))/2 

GO TO 18130 

* 2>rt2 THEM V<K3*M2)»(UCK4»M2)+V(K4 *M2+1> )/2 
GO TO 18160 
GO TO 22000 

PRINT 'ONE POINT ONLY8 NO NET SMOOTHING EFFECT.' 

RETURN 

PRINT 'INDEX ERROR IN SMOOTHING ROUTINE.' 
f* 1 * 1 ' CHECK THE ^ST DATA POINTS MANUALLY. ' 

GO TO 22005 
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2 

3 

4 
3. 
4 
7 
• 
9 

10 

11 

12 

13 

14 

13 

14 
17 
13 
tf 
20 
21 
22 

23 

24 

23 

24 

27 

28 

29 

30 

31 

32 

33 

34 

33 

34 

37 

38 

39 

40 

41 

42 

43 

44 

43 

44 

47 

48 

49 

50 

31 

32 
S3 
34 
S3 
34 
37 


C 888888888*8*8*8*»*88***8*8*8*8*******88**88*8*#*8*8***8**:ir********** 
C 8 $ 
C * SUBROUTINE UANDER 8 
C 8 | 
C 8 OPTIONS ARE * 
C 80 RANDOM SPARK UANDER. 8 
C 82) CENTRALLY PEAKED UANOER. 8 
C 8 t 


C sxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

24100 REM SUBROUTINE WANDER 
24103 COSUB 15930 

24110 IF KSOl AND KS<>2 THEN 22000 
24115 IF K3-2 THEN 24140 

24120 IF K3-K4 OR K3-170RK4-17 OR K3-13 OR K4-13 THEN 24125 ELSE 24135 
24123 'INCOMPATIBLE PROFILE NUMBERS IN UANDER. RETURN AND TRY AGAIN.' 
24130 RETURN 

24135 PRINT 'SPARK WILL UANDER RANDOMLY.' 

24140 PRINT 'HOU MANY SPARKS DO YOU WANT'* 

24143 INPUT PI 

24150 IF ABS(INT<P1))OP10R P1M000 OR Pl< 1 THEN 24140 
24133 GO TO 24X65 

24160 PRINT 'UANDER UILL HAVE PEAKED DISTRIBUTION.' 

24165 PRINT 'UHAT IS MAXIMUM ZONAL CHANNEL UANDER'» 

24170 INPUT P2 

24173 IF P2>50 OR ABS<INT(P2>><>P2 THEN 24165 

24180 IF P2-0 THEN 24185 ELSE 24195 

24185 PRINT 'STABLE SPARK. ROUTINE ABANDONED.' 

24190 RETURN 
24195 P3»K3 
24200 P3-P4-0 

24203 FOR I-Kl TO K2 V<17.1)»0 

24210 P9-1.0 

24215 P6-K3 

24220 K3-K4 

24225 K3-3 

24230 K7-13 

24235 ON P5 GO TO 24240.24233 
24240 P3»INT<2*P2*<RND-.5)+.5> 

24245 P4-P4+1 
24230 GO TO 24270 
24255 P3-P3+1 
24260 P9-INT<(P2/P3>**2> 

24265 P4-P4+24P9 
24270 K6-P3 

24275 FOR I-Kl TO K2 VIK4.I>«P9XU<P6.I) 

24280 IF K6-0 THEN 24290 
24285 GOSUB 14205 

24290 FOR I-Kl TO K2 U(17»I)»V<17.I)fVCK4»I) 

24295 IF P5-2 AND K6>0 THEN 24300 ELSE 24310 
24300 K6—K6 
24303 GO TO 24273 

24310 IF P5-1 ANO P4-P1 THEN 24330 ELSE IF P3*2 AND P3-P2 THEN 24320 
24315 GO TO 24235 

24320 FOR I-Kl TO K2 V< 17.1)-V< 17.1 )+V(P6. I >*<P2+1 >*82 
24325 P4»P4f<P2+i>**2 

24330 FOR I-Kl TO K2 V<P6»X)*U<17.IJ/P4 

Z*335 PRINT P4* ' SPARKS FIRED* OUTPUT TO PR0FILE'*P6 
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Appendix A-3 
DOCUMENTATION SUMMARY 

This appendix* made up of the majority of the comment cards 
from the program listing, is a concise documentation of program 
ABEL3. While explanation is sparse, someone familiar with the 
program can use these pages as a run-time reminder of which 
subroutines, labels, etc. are available. It has been the 
authors experience that once the program is familiar, this is 
the only documentation that need regularly be consulted. 
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1C 

a.. c 

3 * C 

* C 

s c 

« c 

7 C 

• c 

7 C 

10 c 

11 c 
la ; c 

13 C 

14 c 

13 C 

to C 

12 C 

t® C 

19 C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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* PROGRAM ABEL3 WRITTEN IN BASIC 

* DOCUMENTED FOR PROGRAM VERSION OF JULY, 1977. 

* 

* PROGRAM ALLOWS MOPELING OF THE OBSERVATION OF AN EMITTING OR 

* ABSORBING DISCHARGE WITH CYLINDRICAL SYMMETRY INCLUDED 

* PHENOMENA ARE! EMISSION. ABSORPTION UHICH IS SPATIALLY 

* FARTHER FROM THE SPARK AXIS THAN THE EMISSION. EMITTING 

* CONTINUUM BACKGROUND. SPARK UANDER. NOISE IN THE SIGNAL. AND 

* SMOOTHING OF THE SIGNAL. THE PROGRAM IS SO STRUCTURED AS TO 

* ALLOW ANYONE FAMILIAR UITH BASIC TO ADD HIS OWN IDEAS TO THOSE 
» ALREADY PROGRAMMED. 

a 

a PREPARED BY A. SCHEELINE UNDER THE DIRECTION OF: 
a PROF. JOHN P. WALTERS 

* DEPARTMENT OF CHEMISTRY 

* UNIVERSITY OF WISCONSIN 

* MADISON. WISCONSIN 53706 
a 

****x**x*xxx*xx*xxxxxxxx*xxtxxxxxxx*xxxxxx*xxxxxxxxxx*xxxxxxxxxxxx 

*****X**XXXXXXXXXXXXXXXXXXXXXXXXXX*XXXMXXX*XXXX*XXXXXXXXXXXXX*XXXX 

a 

* LINE NUMBER ASSIGNMENTS IN PROGRAM ABEL3 
a 0- 1000 DATA AND DIM STATEMENTS. 

a 1000- 1499 FIRST PASS INITIALIZATION. 

* 1500- 3000 PINUHEEL HUDi MAIN CONTROL ROUTINE, 
a 3000- 3500 GENERAL REINITIALIZATION ROUTINE. 

a 4000- 5000 SUBROUTINE CONSTRUC 
a 6000- 7000 SUBROUTINE FCRUARD 
a 8000- 8900 SUBROUTINE PRINT-PLOT 

* 9000- 9999 PEPSUB <MODIFIED BY HARDWIRING OPTIONS). 

a 10000-10999 MINI-PLOT (MODIFIED BY HARDWIRING OPTIONS), 
a 11000-11500 EXECUTION TERMINATION ROUTINE, 
a 12000-13000 SUBROUTINE NOISE 

a 14000-15000 SUBROUTINE SHIFT 

a 15900-13920 PRINT PROFILE RELATED INFORMATION—SLAVE ROUTINE. 

* 15930-13960 INTERCONNECT CORE AND SUBROUTINES—SLAVE ROUTINE, 

a 16000-17000 SUBROUTINE ABEL 

* 18000-19000 SUBROUTINE SMOOTH 

* 22000-22100 SLAVE ERROR HANDLING ROUTINES, 

a 24000-2S000 SUBROUTINE WANDER 

a -99999 END STATEMENT, 

a 

* ALL OTHER STATEMENT NUMBERS ARE AVAILABLE FOR 

* NEW AND DIFFERENT SUBROUTINES. 

a 

a ********9***x**xxx*x****x**xxxx*xxx**xxxxxx****x**x**xx**xxx*x*xxx 
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g J* < ************ , *****«*****»****»***»*«»t*W********t****t#*******i 

c * table correlating profile NUMBERS and meanings: 

C * 1) USER CONSTRUCTED RADIAL EMISSION PROFILE. 

C * 2J USER CONSTRUCTED RADIAL ABSORPTION PROFILE. 

C * 3) LATERAL INTENSITY PROFILE. 

C * 4> BACKLIGHT PROFILE. 

C *5) CONSTRUC SCRATCH REGISTER. 

C * Al EMISSION/ABSORPTIC1N PROFILE CORRESPONDING TO 3) AND 4). 

C * ASSUMES DREAMS MODEL. 

C « 7> EMISSION PROFILE BASED CN EMISSION MODEL ONLY. 

C * 8) USER CONSTRUCTED EMISSION/ABSORPTION RADIAL PROFILE. 

C * 9) NOISE SCRATCH REGISTER. 

C * lO) BACKGROUND INTENSITY DISTRIBUTION. 

C * 11 > BACKGROUND SPECIES DISTRIBUTION. 

C * 12> SMOOTH SCRATCH REGISTER. 

C * 13) SHIFT SCRATCH REGISTER (LATERAL INTENSITY PROFILE). 

C « 14) SHIFT SCRATCH REGISTER (BACKGROUND INTENSITY PROFILE). 

C * 15) ABSORPTION COMPENSATED INTENSITY PROFILE. 

C * 1A> WANDER SCRATCH REGISTER. 

C * 17) WANDER ACCUMULATOR PROFILE. 

C * 18) SCRATCH REGISTER A. 

C * 19) SCRATCH REGISTER B. 

C * 

C .* 

C * TABLE OF FLAG MEANINGS 

C * 1) LAST EMISSION ZONE NUMBER AS SET IN INITIALIZATION. 

C » 2> ABSORPTION OR EMISSION PROFILE CONSTRUCTED—*1*YES » 0*NC. 

C * 3) BACKLIGHT PROFILE CONSTRUCTED—l*YES. 0*N0. 

C * 4) TRANSMITTED INTENSITY CALCULATED SINCE BACKLIGHT PROFILE 
C 8 CONSTRUCTED—1=N0» 0»YES. 

C * 3) IF 4-NO. IS IT STILL OK TO DO THE INVERSION—1*YES. O-NO. 

C * 7) PLOT ENABLE FLAG—l=PLOT» O-AUAIT NEXT PASS. 

C * 8) SHOULD CONSTRUC AUTOMATICALLY CREATE V<0.1) FROM V<1»I> AND 
C * V<2.1>—1-N0» O-YES. 

C 8 9) BATCH VS. TIMESHARE MODE. 1-BATCH. O-TIMESHARE. 

C 8 4> AND 10) ARE CURRENTLY UNASSIGNED. 

C 8 
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l 


90 

ft 

92 

93 

94 

95 
94 
97 


too 

101 

102 

103 

104 

105 
104 

107 

108 

109 

110 
111 
112 

113 

114 

115 
114 

117 

118 

119 

120 
121 
122 

123 

124 

125 
124 

127 

128 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


xxxxxxxxxxxxtxtxtxxxxxxxxxxxxxtxxxxxxxxxxxxsxxxxxxxxxxxxxxxxxxxxxxx: 

* 

* CONTROL ROUTINE SPECIFIES? 

* 

1) SUBROUTINE NUMBER. 

2) OPTION NUMBER UITHIN SUBROUTINE. 

3) MAJOR PROFILE AFFECTED. 

4) MINOR PROFILE AFFECTED. 

5) FIRST (INNER) ZONE OR RING AFFECTED. 

4) LAST (OUTER) ZONE OR RING AFFECTED. 


IN BATCH MODE? THESE ARE SPECIFIED AS 4 NUMBERS SEPARATED BY 
COMMAS ON A SINGLE INPUT CARD. INTERACTIVELY, VALUES ARE 
SUPPLIED IN RESPONSE TO A PROMPT. IN ADDITION. NONNUMERIC 
VALUES WHICH MAY BE GIVEN IN CONJUNCTION WITH NUMERIC COMMANDS 
ARE AS FOLLOWS? 


E ERROR-REASK QUESTION. 

R RESTART CONTROL CALLING SEQUENCES THROW OUT 

CURRENT CONTROL VALUES. 

S SHUT DOWN PROGRAM. SAVING APPROPRIATE OUTPUT FILES. 

USE IN PLACE OF THE BASIC 'STOP' COMMAND. 

USE OF 'STOP' WILL WIPE OUT PLOT INFORMATION AND 
LEAVE YOU IN BASIC. IF NQ PLOTS ARE GENERATED. 

S LEAVES YOU IN BASIC ANYWAY. ALSO. IN BATCH MODE, 
S LEAVES YOU IN BASIC. 

T IDENTICAL IN USE TO S. S STANDS FOR STOP. T 

STANDS FOR TERMINATE. USE EITHER OR BOTH. 

D ON ALL SUBSEQUENT QUESTIONS REGARDING THIS 

SUBROUTINE CALL, USE DEFAULT VALUES RATHER THAN 
ASKING FOR INPUT. 

ALL OF THE ABOVE ALPHABETIC COMMANDS MAY BE USED ALONE EXCEPT D 
WHICH MUST BE PRECEDED BY A NUMBER. SINCE O IS A UNIVERSAL 
DEFAULT VALUE, ENTERING OD WILL GIVE DEFAULT VALUES NOT ONLY 
ON SUBSEQUENT QUESTIONS BUT ON THE CURRENT QUESTION AS WELL. 

THE LETTERS ARE SEARCHED FOR AND HAVE EFFECT IN THE ORDER SHOUN. 


* 

* 

x*xxx*xxtxxxxxxxxxx«xxxsxxxxxxxx**«xx*xxxxxxxxxxx*»xxxxxxsxxxxx*xxx 
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129 

130 

131 

132 

133 

134 

135 
134 

137 

138 
137 

140 

141 

142 

143 

144 

145 
144 

147 

148 
147 

150 

151 

152 

153 

154 

153 

154 

157 

158 

159 

140 

141 

142 

143 

144 

145 
144 

147 

148 

149 

170 

171 

172 

173 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


8** 3Mr ***************88*8888*88**8*lt»*JMt*88*S888J*8*88888*8*8888888888 
« SUBROUTINES AND DEFAULT VALUES ARES * 

* SUBROUTINE DEFAULT VALUES 

OPTION MAJOR PROFILE MINOR PROFILE 
« 1 11 

* 8 2 

2 3 9 

« 3 10 

1 3 4 

11 4 1 

* 3 12 

1 3 14 


8 NAME 
8 CONSTRUC 
8 FORWARD 
8 NOISE 
8 SHIFT 
8 ABEL 
8 PRINT-PLOT 
8 SMOOTH 
8 WANDER 
8 

8 LEGAL ANSWERS TO 
8 POSITIVE INTEGERS 


NUMBER 

1 

3 

4 

5 
4 

7 ' 

8 


0 

-1 


WHICH OPTION' AND UHAT THEY MEAN. 

VALUE DIRECTLY ASSIGNED AS OPTION FOR 
THIS CALL TO THIS SUBROUTINE. 

USE DEFAULT OPTION. 

LEAVE OPTION UNCHANGED FROM PREVIOUS CALL 
TO THIS SUBROUTINE. THIS CHOICE 13 RIFE 
WITH OPPORTUNITIES FOR ERRORS# ITS USE 
IS NOT RECOMMENDED. 

CHANGE THE DEFAULT OPTION FOR THIS 
subroutine; the new DEFAULT option is 

IN EFFECT IF THE SUBROUTINE IS IN FACT 
ALLOWED TO EXECUTE DURING THIS CALL. 

LEGAL VALUES FOR PROFILE NUMBERS AND WHAT THEY MEAN. 

INSTRUCTIONS HERE ARE THE SAME AS IN THE SECTION JUST CONCLUDED 
ON ASSIGNING OPTION VALUES# EXCEPT THAT THE WORDS 'PROFILE 


-2 


8 NUMBER' SHOULD BE SUBSTITUTED FOR THE WORD 'OPTION' ABOVE. 


8 LEGAL RING AND ZONE NUMBER ASSIGNMENTS. * 

8 POSITIVE INTEGERS VALUES BETWEEN 1 AND 50 ARE USED TQ * 

INDICATE LIMITS DIRECTLY. DEFAULT * 

ASSIGNMENT OVERRIDES DIRECT ASSIGNMENT. * 
ALL ZONES AND RINGS l THROUGH SO ARE * 

OPERATED ON BY THE SUBROUTINE. * 

ONLY ZONES OR RINGS IN THE EMISSION REGION* 
ARE OPERATED ON BT THE SUBROUTINE. * 

ONLY RINGS AND ZONES IN THE ABSORPTION * 
REGION ARE OPERATED ON BY THE SUBROUTINE. * 


8 
8 
8 0 
8 

8 -1 
8 

8 -2 

8 


^ urtRHUW UN Of int DUbKIJU I INc. • .* 



174 

ITS 

174 

& 

179 

180 
181 
182 

183 

184 

185 
184 

187 

188 
187 

170 

171 


172 

173 

174 
ITS 
174 

177 

178 
177 
200 
201 
202 


C ints*s******tt*t******t*x****«**s**tt**********t*******t*****t*x«**t 
C 8 

C * SUBROUTINE CONSTRUC 
8 8 OPTIONS ARE 

C * 1> ADD ON-AXIS GAUSSIAN PROFILE TO PRESENT PROFILE. 

C * 2> ADD OFF-AXIS GAUSSIAN PROFILE TO PRESENT PROFILE. 

C * 3> ADD ELLIPSOIDAL PROFILE TO PRESENT PROFILE. 

C * 4) ADD HOMOGENEOUS (CONSTANT IN EACH RING OR ZONE) PROFILE 

C * TO PRESENT PROFILE. 

C * 3) INPUT DIRECTLY VALUES IN A FEU ZONES OR RINGS. 

C * 4) INPUT DIRECTLY VALUES FOR ALL POSSIBLE (BASED ON LOOP 

C 8 INDICES CHOSEN) Z0NE5 OR RINGS. 

C 8 7> SCALE THE VALUES IN A FEvJ ZONES OR RINGS. 

C 8 8) SCALE ALL POSSIBLE ZONES OR RINGS. 

C 8 9> ADD INPUT VALUES TO THE PRESENT VALUE OF A FEU ZONES OR RINGS 

C 8 10) ADD INPUT VALUE TO PRESENT PROFILE VALUE IN ALL POSSIBLE 
C 8 RINGS OR ZONES. 

C 8 11) ADD MINOR PROFILE TO MAJOR PROFILE ? STORE IN MAJOR PROFILE. 

C 8 12) SUBTRACT MINOR PROFILE FROM MAJOR PROFILE? STORE IN MAJOR 
C 8 PROFILE. 

C 8 13) SCALE ALL VALUES BY AN INPUT CONSTANT. 

C‘ 8 14) CROSS-MULTIPLY THE INPUT PROFILES? STORE IN MAJOR PROFILE. 

C 8 BY ADDING 20 TO ANY OF THE ABOVE OPTIONS. THE OPTION 

C 8 UILL BE EXECUTED AFTER THE APPLICABLE SECTION OF THE PROFILE 
C 8 HAS BEEN CLEARED. 

C 8 PERMANENT SCRATCH REGISTER FOR THIS ROUTINE IS V(S.I). 

C 8 

C *S88888X88*XS*XXX*X*X»t**X***S**XX**X*X*XX*X**X»*X«*X*XX**X****XS*« 
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* SUBROUTINE FORWARD 
t 

t options are: 

: ■■ js-ms KS!^%-„*,r«:si'?.s?rK*«!s m 
«2!t :rsK'.vs ! ;yr;,;;"sj; L ;r sris ; “ 

WrSSION/AESORPTIDN BOUNDARY- AS SET IN INITIALISATION IS 
osen. IF THE MAJOR PROFILE IS PROFILE 8. THEN THE 
PROFILE IS AUTOMATICALLT ASSUMED TO BE 8. OVERRIDING ?2 e 
“ 0ICE MflI,e IN ™ E CALLING SEOUENCE. OVERRIDING THE 

CONVERT THE MAJOR PROFILE INTO A LATERAL TNTPucrTv 

^^^D^uJ^frROnLEs'SRE IGNORED^ 0 R “ I0NS ° F THE 

"gESiSL^^ 

WT^FFECTED? I0N * E6I0N 0F INPUT AND OUTPUT PROFILES ARE 

4> I25.T* CL RADIAL ABSGRDER AS DESCRIBED IN THE MINOR PRnm f 
AROUND THE LATERAL INTENSITY DATA IN THE MAJOR pSflF??f 
RESULTS STORED IN THE MAJOR PROFILE* AND A TRANSMITTANCE 
PROFILE IS NOT GENERATED IN THE ABSORBING REGION. 

ARBITRAR? E2rSSI0N/ABS0RPTI0rB0UNDAR? R SET G DURING H INITlALIZATION 

avss s%rk. sarL™ ™ s ™“" sarer-; 

ll S I^B. AUTD, ’ flTIMLLY ST0RED IN pr OFILE 3 EXCEPT WHEN OPTION 4 ) 

t 


* SUBROUTINE NOISE 

ft 

» OPTIONS are: 

f l> DATA? 0ISE inbependent ° p the v«<-ue of the input noiseless 

' 2> £ BB U 0ISE 8PSED ON THE MAXIMUM DATA VALUE IN THE EMISSION 

fc REGION of the INPUT DATA PROFILE. EMISSION 

t 3) ADD NOISE BASED ON THE MAXIMUM VALUE IN THE ABSORPTION 

l REGION OF THE INPUT DATA PROFILE. ABSORPTION 

t 4) ADD NOISE PROPORTIONAL TO THE NOISELESS DATUM VALUE 

E D^TuM°ilLUE? ORORTID ' ML T ° ™ E sauflRE ROOT 0F rHE Noiseless 

! 24> SS?sS«i d^S« ilL£Es: 0RTt0NAL T0 AH * RBmARY F0UER 0F the 

r 

I ************m******m*m**m*mm**mm*****m*m****** 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


* SUBROUTINE SHIFT 

* 

* OPTIONS ARE 

* Irrfrrr^S!! „ E J tssrON/A PSORPTION BOUNDARY FIXED. 

* ?f^ cc l AND PILL to complete profile as necessary. 

2) SAME AS • l> EXCEPT THAT EMISSION/ABSORPTION BOUNDARY IS SHIFTED: 

* IN THE SAME MANNER AS THE PROFILE. 

« 3> IGNORED COMPLETELY THAT EMSSION/A * SORPTION BOUNDARY IS 
5 4> M^ S “e F Lne?” LE CURRENTLY IN STORAGE AND PLACE IT IN THE 

* 

* 


MAJOR PROFILE. 

3> REINITIALIZE SYSTEM. 

6) RESET EMISSION/ABSORPTION BOUNDARY. 

2S2J?P e >i°nIH«rE P I IONS 1 rHR0U6H 3 CANCELS REFLECTION AND FILLING. 

OTHER THAN THOSE SPECIFIED IN THE SUBROUTINE CALL MAY BE 
SHIFTED UNDER SPECIAL CIRCUMSTANCES. DESCRIBED FULLY IN THE 
FULL PROGRAM DOCUMENTATION. FULLY IN THE 

C * 

c ifiiiiiiii****** ,, ‘****** !rit ********* !r * !,f<r ** <f ********»****«****»****** 

C J*****************************************************************»' 
c * SUBROUTINE ABEL 


C 

c * 

c « 

c * 

c * 

c * 

c * 

c * 

c * 

c « 

c * 

c * 

c * 

c 


OPTION ARE 

1> PERFORM ABEL INVERSION TAKING EMISSION/ABSORPTTON BOUNDARY 
AS CORRECT. GIVES PROPER DREAMS MODEL IFvrpSION. 

!£!HI MAJ0R PR0FILE ASSUMING A TOTALLY EMITTING PROFILE. 

3) INVERT MAJOR PROFILE ASSUMING A TOTALLY ABSORBING PROFILE. 

4) TAKE EMISSION INTENSITY FROM MAJOR PROFILE AND ABSORBING 
SPECIES DISTRIBUTION FROM MINOR PROFILE. PERFORM LATERAL 
TO RADIAL INVERSION ON EMISSION INTENSITY DATA. 

OUTPUT IS TO PROFILE 6 EXCEPT IF OPTION 2 IS CHOSEN? 

IM THAT CASE. OUTPUT MAY BE DIRECTED TO EITHER PROFILE 6 OR 7t 
WITH THE CHOICE BEING MADE UITHIN THE SUBROUTINE. NOT IN THE 
* CONTROL ROUTINE. 


* 

wmittw**«t*i*tt*ti«*i*tt***i M |*tM«**«*wi*mmitt**mw* 




2*4 

2*7 

2*9 

2 ** 

300 

301 

302 

303 

304 

303 

304 

307 

308 
30* 

310 

311 

312 

313 

314 

315 
314 

317 

318 
31* 

320 

321 

322 

323 
324- 


324 

327 

328 
32* 

330 

331 

332 


C *4*44444*44S4444444S4t*44*44*S444*4t*444S*t44*4t**S4t444S4*4f4S4*»* 

C 4 SUBROUTING PRINT-PLOT 
C 4 

C * OPTIONS ARC 

c 4 -1) plot USING DEAN STUELAND'S mini-plot routine cuith options 
C 4 HARDWIRED). 

c 4 2) PLOT USING DEAN STUELAND'S PEPSU8 ROUTINE (WITH HOST OPTIONS 

C 4 HARDWIRED). 

C 4 3) PLOT USING FIRST MINI-PLOT AND THEN PEPSUR. 

C 4 10) PRINT A LISTING OF THE CONTENTS OF THE MAJOR PROFILE AND 
C * THE RASE 10 LOG OF SAID DATA. 

C 4 11) THROUGH 13) COMBINE OPTION 10 WITH OPTIONS 1 THROUGH 3 
C 4 RESPECTIVELY. 

C 4 

C 4 ALL OPERATIONS USE ONLY THE MAJOR PROFILE. THE MINOR PROFILE 
C 4 IS IRRELEVANT. 

C 4 

C 4*44444*44«X4******X*»*******X*X*X«*«*«*****4**XX«X*XX**»*X*****X** 
C * 

C 4 SUBROUTINE SMOOTH 
C 4 

C 4 OPTIONS ARE 

C 4 1) DO NOT SMOOTH ACROSS EMISSION/ABSORPTION BOUNDARY. 

C * 2) IM SMOOTHING* IGNORE EMISSION/ABSORPTION BOUNDARY. 

C 4 

C 4444*44X****4XXXX**X*X*X****X«XXX*XX*X******X**XX***X*XX*X*XX*«X*X* 
C sxxxxxxxxxxxx'xxxxxxxxxxxxxxxxxxxsxxxxxx'xxxxxxxxxxxxxxxxxxxxxxxxxxxx 
C 4 

C 4 SUBROUTINE UANDER 

C 4 

C 4 OPTIONS ARE 
C 41) RANDOM SPARK UANDER. 

C 42) CENTRALLY PEAKED UANDER. 

C 4 

C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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Appendix A-4 

USE OF ABEL3 AT THE TELETYPE 

Explicit procedures have been outlined for use of ABEL3 at 
a PEP terminal or in batch runs. In some cases it may be 
desirable to use a teletype or DECWRITER to run the program, 
which presents some inconveniences. These problems could be 
solved with minor program modifications, but here suggestions 
will be given for using the program as it currently is 
written. 

If no plotting is done using PEPSUB, either "batch" or 
"time* mode may be used in executing the program. If, however, 
PEPSUB is used, a complication may arise. 

(a) If "batch" mode is used, no attempt is made to plot on 

the teletype, but the full core routine command set is 

not available. Thus, no problem arises in obtaining 

plot (the normal "batch" mode sequence may be used) but 

interaction may be inconvenient, particularly to a new 
> 

user. 

(b) If “time" mode is used, interaction is detailed, but 
upon termination (S or T command), an attempt is made 
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to plot on the teletype, resulting in an unintelligible 
jumble being printed at the teletype. To avoid this, 
the following is recommended. 

0) Run the program in "time" mode until, as previously 
described, it would be appropriate to enter the "S" 
or "T" command in the core routine. 

(2) Instead of entering S or T, call up subroutine number 6, 
option 2, major profile 1 (or any other profile—this 

is a dummy argument in this case), minor profile 0 
(again, any profile is okay), first ring or zone *1 
(to avoid the plot option questions). 

(3) In response to 

D) PLOT STATUS? 

Answer "CLOSE". That five letter word must be used. 
Specifically, do NOT use "New", "Overlay", "Done", or 
"Last". 

(4) Upon return to the core routine, and in direct 
contravention to all other comments on terminating the 
program, type the word STOP. Because steps (2) and 
(3) have been executed, the plot file is preserved. 

(5) Sign off the teletype with BYE and @FIN. 

(6) Go to a PEP terminal as would normally be done 
following a "BATCH" run to obtain the plot 



(0RUN 

0PASS 

@ASG,A PLOT. 

0ADO,P PLOT. 

Y|S 

• 

y£s 

@FIN) 

(7) If the PEP run Is not to be performed on the same day 


as the teletype run, then after saying BYE and before 
saying @FIN in the teletype run, enter the statement 


8SAVE,S PLOT. 


After performing the PEP run to obtain plot, i.e. after 
entering the last YES and before saying @FIN, enter 
the statement 

0DELETE PLOT. 
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Appendix A-5 

EXAMPLE RUN OF PROGRAM ABEL3 

On pages El through E28 appears a listing of the 
interactions which took place during a sample run of program 
A8EL3 and the output which resulted. The MACC supported 
processor BFNLIST in combination with appropriate @@TTY commands 
was used to produce the hard copy of the run, which was conducted 
at a PEP terminal. Description of the use of BFNLIST is beyond 
the scope of this documentation, but may be found in the MACC 
Handbook. 

Two distinct tasks were performed in this run: (1) the 
plots shown in Scheeline and Halters, Anal . Chim . Acta Comp , and 
Opt. Tech., 1, 59 (1977), Figure 6 were recreated and (2) a few 
manipulations involving both emitting and absorbing species were 
performed to demonstrate how this may be accomplished. A.few 
extra steps are included to show as much as possible of the 
program's use. 

} 

Between line 4, page E-V and line 1161, page E-21, the 
listing is an exact duplicate of the interactions which took 
place. Each line is numbered for easy reference, and labeled 





with an "I" or "0" to signify Input by the user or Output by the 
computer. For lines numbered less than four or greater than 1161 
proper interaction will be listed here, as BFNLIST precluded 
normal operation at these points, as did a temporary bug in the 
SASIC interpreter. 

At the PEP terminal, line 5 would be reached as follows, 
using BFNLIST conventions for showing input and output: dial 
31250; press DATA button on phone when ,, beep M is heard 

I UVfGT 

0 MACC 33.15 U02017 

I @RUN AS,41000,1893602639,$10.00 

0 RUNIDY02345 DATE 07:25:77 TIME 20:30:30 

0 PASSWORD PLEASE 

o mm 

I WORD 

O CONTINUE 

I @LIB*BACKUP.BASIC CHEMISTRY*WALTERS. 

0 UBASIC 4.0.4 20:30:45 25 JUL 77 

This sequence calls up the 1110, starts a run (@RUN statement), 
enters a password which authorizes an individual to use the 
computer (in this case, the password is "word"), and the BASIC 
processor is started. As program ABEL3 was earlier placed in 
file CHEMISTRY*WALTERS, that file is called up with BASIC. 

At this point, only line numbers will be used instead of 
writing out the commands. After BASIC is called, a carat is 
output in line 4 and the program called up and started by lines 
5-7. The program is initialized in lines 8-25 inclusive. 
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Interaction format is set up by the first question (lines 8-10). 
The random number (noise) generator is initialized so that the 
first pseudorandom number available in the noise routine is the 
first of a standard, documentable sequence. That is* every run 
initialized as in lines 11-15 will utilize the identical sequence 
of random numbers. The physical width of a ring or zone in the 
modeled discharge is set to 50 pm in lines 16-17. 

This is a 50 ring/zone discharge model. Lines 18-19 
specify that all 50 of these zones and rings can emit but not 
absorb light. Questions and answers in lines 20-25 are most 
relevant when absorption is considered and so are of little 
concern here—the answers shown in lines 23 and 25 are recommended 
for pure emission modeling. 

Lines 27 through 41 constitute the first use of the hub of 
the program pinwheel. Lines 27 and 28 choose subroutine 1, the 
profile construction subroutine, for first execution. Lines 29 
and 30 specify that option 2, the addition of an off-axis 
Gaussian profile to the data already present (all zeroes as this 
is the start of execution) should be performed. Lines 31 and 32 
specify that the results of subroutine execution are to be 
stored in profile 1, the "user constructed radial emission 
profile". 

As the minor profile is not used in this option, the 
remainder of the first core routine call (lines 33-37) was so 
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set that two optional features of the core routine are demonstrated 
Note the input in line 34. The suffix "D 1 * indicates that default 
values for all remaining core questions are to be assumed. As 
the only subsequent questions would concern the maximum and 
minimum zone limits to be affected by the subroutine, the D has 
the effect of allowing (forcing) operations to encompass all 50 
rings in the affected profile. "-2" is the value chosen for the 
minor profile. That is, a new default value (replacing the 
original default minor profile for subroutine 4, which was profile 
11, the Background Series Distribution) for the subroutine 1 
minor profile is to be input, and this new value used on'this 
execution of the subroutine in addition to future default minor 
profile assignments. In line 37, profile 18, the A scratch 
register, is chosen as the default minor profile. 

Lines 39 through 41 summarize the parameters chosen in the 
core routine. Subroutine 1 starts to execute. Lines 42 through 
50 enter the parameters describing the profile being constructed, 
an off-axis Gaussian radial emission profile. Because line 25 
was answered "yes", both profiles 1 and 8 contain the calculated 
Information. 

In line 52, the core routine again executes. Here the 
output routine is called up to print and plot the profile just 
constructed. In line 57, after profile 1 is chosen for output, 
defaults are again chosen for minor profile and ring boundaries. 
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Line 62 Is used so that a screen clear can be given (not 
output by BFNLIST) at the PEP terminal before a particular 
output Item Is listed or plotted. Here, the table of emission 
values was started at the top of a new page. 

Lines 65-118 lists, with the rings and zones numbered under 
the "Index" column the profile requested in the core routine. 
Both the data and base 10 logarithm of the data are given, with 
appropriate headings. Both the profile number and title are 
given for ready reference. 

Lines 120-162 shows full execution of the "Miniplot" 
plotter routine which plots the data just listed. By clearing 
the screen using the "Home" capability (i.e. entering CTRL-0 
before typing and inputting "1" or some other character) the 
plot just fits on the PEP screen. Throughout this example are 
plots which were split on the line printer—they were not split 
on the PEP screen. 

Lines 163 to 170 relates to the first running of PEPSUB. 

The interaction in lines 163-4 occurs only on this first call. 
The plot made using this call, after post-processing described 
later, produced the plot on page E-22. 

This is a logical breaking point in program execution. One 
calculation has been performed (profile construction) and the 
results output. 
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The next operation is to convert the radial profile just 
calculated into a lateral, i.e. simulated observable profile. 
Along with output of the result, this takes lines 173 through 
317. Specific items to note: 

0) The core routine was executed with explicit answers 
to all questions (lines 173-184). 

(2) A full description of the operation of subroutine 
FORWARD is given in lines 186-198. Lines 189-190 are 
produced even though no absorption is modelable based 
on the initialization parameters. This is due to a 
flag which forces backlight profile construction on 
the first call to subroutine FORWARD which could 
conceivably involve a backlight if the user has not 
constructed such a profile first. This relieves the 
user of having to construct a specific profile unless 
desired, and prevents taking the logarithm of zero or 
infinity. Lines 193 and 194 are also generated due to 
the option choice even though no absorption region 
exists. 

(3) Subroutine FORWARD always puts the results of 
calculations into profile 3. 

( 4 ) The hard copy plot for this PEPSUB call may be found 


on page E-23. 
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The goal of this section of the example run was to observe 
the effects of wander-on radial and lateral profiles. So the 
next step in execution is to call up the wander modeling routine, 
subroutine 8. As shown in line 325, the input data is all 50. 
zones of lateral intensity data in profile 3. Line 323 specifies 
random wander. Lines 331 to 334 specify how much wander is to 
take place (±15 zones) and how many sparks are to be used (so that 
adequate statistics can occur). As the "sparks" could be 
centered in any of 31 zones and experience showed that six sparks 
per zone gave reasonable results, 200 sparks were chosen here 
(6*31 s 186; 200 is the closest convenient round number. 
Obviously this choice of number of sparks was somewhat arbitrary 
and should not be regarded as a constraint by the user). If the 
data used as input to the wander routine is desired, it is in 
profile 13 (line 336); output is to the original input and major 
profile, number 3. Line 335 is a diagnostic which is merely 
confirmatory when option 1 is executed. If option 2 is chosen, 
this is the only convenient way to determine the number of 
discharges "fired". 

Output (lines 338-461) of the lateral profile produced in the 
wander calculation contains few points not previously covered. 

i 

Line 345 shows the use of "0" in the core routine to specify a 
default value for a single question (00 specifies default for 
both the given question and succeeding questions; nD were n is 


an integer >0 specifies response n for the given question and 
defaults for succeeding questions). The hard copy line plot is 
on page E-24. 

The last calculation step in the wander modeling is to 
reconvert the lateral data (profile 3 just output) to radial 
data to see how much blurring of chemical information has 
occurred due to wander. Lines 462 to 478 show the performance 
of this conversion using subroutine ABEL. Again, as in FORWARD, 
printouts relative to absorption are in fact functionless due 
to the lack of any absorption region. In line 477 "DREAMS" 
stands for "Decoupled Region Emission Absorption Model of the 
Spark", i.e. that both emission and absorption occur, but in 
spatially segregated regions. Output is as usual (lines 480 
through 498); notice the vertical scale on the plot for 
comparison with the next section. Hard copy corresponding to 
this plot is on page E-25. 

lines 600 to 720 illustrate the construction and use of 
overlaid plots. Here, the original and wander-affected radial 
profiles are overlaid. The original profile is output first as 
this curve takes the largest range of ordinates and thus must be 
used for setting the vertical scale. Hard copy appears on 
page E-26. This plot should be compared to plots on pages 
E-22 and E-25, which were made using the same numerical data. 




Line 720 concludes the wander modeling section of the sample 
run. It Is now desired to illustrate some features of modeling a 
discharge which Includes among Its properties self-absorption. 
This necessitates reinitialization. Lines 722-725 call up the 
reinitializing option of subroutine SHIFT. Profile numbers and 
zone/ring number specifications are irrelevant as all zones and 
rings in all profiles are re-zeroed. By comparing lines 732 to 
471 with lines 8 to 25, it may be noted that the only questions 
asked upon start up which are not asked upon reinitialization 
concern batch versus timesharing mode and the random number 
generator. Thus the internal state of the program is identical 
at line 741 to its state at 25, save for any use of the random 
number sequence and the existence on file of data, plotable on the 
Calcomp plotter as output by PEPSUB. There, is a caveat, however: 
The default minor profile (as reset for subroutine 1 in line 37) 

Is not affected by initialization. If, as desired here, the 
previous resetting is to be cancelled, it must be done manually 
as in lines 751-753. 

Since the emission/absorption boundary was set to ring and 
zone 25, the outer 25 rings and zones are now useable for modeling 
self-absorption. Thus both profiles 1 and 2 will be used in 

i 

setting up thd system to be modeled (radial emission and radial 
absorption profiles respectively). Profile 1 is constructed as 
an off-axis Gaussian in lines 760 to 768. Note the selection of 
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emission rings only in lines 754-755. The defaults 0 * all 
zones, -1 * emission zones only, -2 * absorption zones only are 
convenient, especially if the position of the boundary between 
emission and absorption is changed frequently. The construction 
of profile 2 in lines 770-792 follows a parallel course. Lines 
758 and 782 confirm which rings are affected. 

Lines 740-741 specified that a profile combining emission 

data from rings 1-25 of profile 1 and rings 26-50 of profile 2 

be assembled in profile 8 each time either profile is changed 

by subroutine 1; Thus to output all the useful radial 

information at once, lines 793-799 specify outputting of profile 8. 

Compare the parameters entered in lines 762-768 and 787-792 with 

the tabular data in lines 809-862 and with the plot of these 

data at the bottom of page E-16. As there is now an absorption 

•region, the interaction in lines 863-869 is added to the plot 

output routine. If “no” had been entered in line 865, all the 

symbols at the data points would have been the same. By 

answering M no M in line 869, the absorption side of the plot is 

independently scaled; reference to the tabular data reveals that 

the absorption data has a maximum value of five compared to a 

maximum of 1000 for the emission data. Had the default 

j 

response ("0 M or "-2") or “yes" been entered in 869, the 
absorption region data would all have appeared as "0" on the 
scale of the graph. The hard copy of this plot is on page E-27. 
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Just as a reminder, when "D) Plot Status?" is asked in line 871, 
it refers to the instant plot displayed on page £-16. When the 
question is asked in line 916, it refers to the PEPSUB plot for 
later hard copy production. 

Once more, subroutine FORWARD is now called. The emission 
region data is converted to intensity as would be viewed in the 
lab after the emitted light passes through the absorbing layer, 
and the absorption region data is converted to intensity data 
reflecting the amount of backlight radiation allowed to pass to 
the point of observation. In this case, since the backlight is 
uniform with 100 units of intensity, the light seen in any zone 
which views only the absorption region may be viewed directly as 
percent transmittance. This may be seen in the listed data, 
listed 985-1009. 

In the plot options for the output of FORWARD, the scaling 
option was intentionally misstated (line 1017), and the plot on 
page E-19 resulted. This was not thought useful for a hard copy 
plot; note the response in PEPSUB input in line 1065. The 
output routine is again called, this time specifying that no 
list of data be given (line 1073), and the correct plot 
specification is given (lines 1080-1086). The plot appears on 
page E-20, with the hard copy equivalent on page E-28. 

The rest of the example run, on page E-21, was performed to 
illustrate some more features of the core control routine. 
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Lines 1140-1142: Effect of trying to use an undefined 
subroutine (only routines 1-8 are allowed). 

Lines 1143-1146: After typing "7" in line 1144 it was 
decided that that was erroneous. By also typing "E'' before 
hitting the carriage return, the "7 1 ' is ignored and the 
question reasked (in this case "7" was entered anyway in line 
1146, but that in general would not be the response). 

Lines 1149-1152: The R option Restarts asking of the core 
routine questions, going back to requesting the subroutine number. 

In line 1153, the program is terminated in proper fashion 
(always terminate using a T or S command in the core routine, 
NEVER with the word "stop", or else all plot will be lost). 

Lines 1154 through 1161 (except for 1159 which is a quirk of 
BFNLIST) then appear automatically on the screen. Ignore the 
last three lines on page E-21; these were necessary to get the 
listing used on page £-1 to E-21 but are not part of the normal 
rimstream. Further questions are asked to generate hard copy 
plot—simply answer all of them "yes" and plot will be produced 
on the PEP and Cal comp plotters. At the end, recheck the run 
I.D. number so.*that the hard copy plot may be obtained in the 
basement of MACC. 
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To finish the run, type 

@FIN,C 

and a billing for the run will be output. 

To review the plots or view any plot whatsoever generated 
in a batch run, a separate run would be performed as follows: 

Sign on as described at the beginning of this example, 
starting with dialing 3-1250 through entering the password and 
receiving the reply CONTINUE. The rest of the run would be: 

I @ASG,A PLOT. 

0 READY 

I @ADD,P PLOT. 

(enough "YES" commands to answer all ensuing questions— 
copy run I.D. number at end.) 

I GFIN.C 
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341 S 13 
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353 0 PROFILE RUBBERS* 3 1 

354 0 NONE? 

-335—I—1___ 

354 0 

35? 0 PROFILE 3 • THE LATERAL INTENSITY PROFILE IS PRINTEO BELOW. 


OBSERVER INTENSITY 
•61594804 

-.617932*2 - - 

•6216E247 

•6265844* 

■—433*1441—- 

•43636421 

•6393S6C9 

—*6399643- 

•63761242 

•63199811 


LOG V(I«J ) 
••21043592 
--•20905902 
-•20643138 
-•2C302039 

«,t0eiJ7<7 

-•19629249 

-.19425719 

—■*•.19304425 

-.19544323 

-.19928422 



•511S0752 

•49539099 

—.47966477- 

•46379155 

.44706911 


-•29114798 

-.3050519 

—3190621* 

-.33367714 

-.34962533 
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410 0 

411 Q 

-41 Z -0-03-94014W 081. 

413 1 NOW 

414 4 


.02745365 
*01449053 
-•01194547 
•00742493 
•00441054 

—0023442?_ 

.00135739 
.0007016 
—00034549 ... 

•00016195 
7.2221862E-05 


•1*5613990 
•1*7330504 
■ .*1*9220701 
-1*1293077 
•2*3555004 
—•2*40-13169- 
-2*8672939 
-3*1539078 
—-3*4615645 
-3.790608 
-4*1413313 


414 | 1 
417 0 

419 « 4.4C-01* 

420 0 :• 


LATERAL intensity pro file 


422 0 - 

423 0 : 

-424-0-S*3E-01*_ 

423 0 0 
426 0 0 

—477 0 1__ 

420 0 0 

429 0 t 4*2E-01+ 

—430 a M _t_ 

431 0 C 

432 0 0 

-J6.31.ft_ 

434 0 I 3.1E-31+ 

435 0 N - 

—434_0—T_ 

437. 0 C s 

430 0 N 

—439 ft 5 g.flffHm ■ 

440 0 I s 

441 0 T : 

-442 0_t- 

443 0 s 

444 0 8*8E—02+ 


444 0 S 

447 0 S 

-440 • O.OE+OQ+ _ 

449 0 l«— 

450 0 

-432-0-i.aftnn 

452 0 

453 0 

434 0 M0KHA4 tETURM_ 
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4SS I 

454 0 D> PLOT STATUS? 

-45? t »8W---- 

451 I 

439 0 NORMAL RETURN 

-440—A--- 

441 0 

442 0 SUBROUTINE NUMBER*? 

_443 I S -- 

444 0 WHICH OPTION? 

443 t 1 

— - - 444 4..JIA401. BO O T I LK. IN V OL VE D *? ■■ .. .. 

44? I 3» 

448 0 

—441-0 IN-SUBROUTINE- ABEL—OPTION. -1-VlLL-Bt-- 

470 0 PERFORMED ON RINGS OR ZONES 1 TO SO 

471 0 PROFILE NUMBERS* 3 4 

--113 0 |W ABELt-RImCS OR l O-WE-S-3-SO-SO-ULE—A.FF E C-XE B-«- 

473 4 THE LATERAL TO RADIAL INVERSION WILL BE PERFORMED. 

474 O PROFILE 3 « THE LATERAL INTENSITY PROFILE 

■-4ZS-4 NILL.be USEA- AS. AN.-S.NPUT LATERAL INTENSITY PROFILE* 

474 0 PROFILE 4 IS THE BACKLIGHT INTENSITY PROFILE. 

477 0 A FULL DREAMS INVERSION WILL BE PERFORMED. 

—428 Q. OUTPUT IS TO gftOSILE -fcUaQSR-4 - ... 

479 0 

480 0 SUBROUTINE NUMBER*? 

- 481 - 1-4 ___ 

482 4 WHICH OPTION? 

483 1 13 

..... ,414 a BAlOt PBOEILf-JN.VALVE-- 

48S I 4 

484 4 SECONDARY PROFILE INVOLVED*? 

-48Z -I_CO___ 

488 4 

484 4 IN SUBROUTINE PRINT-PLOT OPTION 13 WILL BE 
. - 410 O PERFORMED 0 U HASS OR TONES-1- 10 -SO- 


411 0 

412 0 

A*t 1 

PROFILE 

MORE? 

t .. 

NUMBERS* 

6 1 


414 4 





415 4 

profile 

6 « THE COMPUTED 

EMISSION/ABSORPTJ ON PROFILE 

IS PRINTED BELOW. 

41? 4 


INDEX 

EM1SSION/EPS1L0N.CONC . 

LOS VU.J) 

414 4 


1 

241.13091 

2.3822529 

_419 4 


? 

241.49343 - - - 

- 2.397059a 

2*4267541 

300 4 


3 

267.14935 

301 0 


4 

292.16181 

2.4656234 



* 

iivniMt_ 

■> -<cn7af ^4 

303 4 


4 

334.09225 

2.5491164 

304 4 


7 

385.3402 

2.5858441 

An* 4 


f 

_413.2611 ____ .. . ... 

-2.4162245 

2.6393102 

304 4 


9 

435.82702 

307 4 


10 

451.66422 

2.6548156 

AflR ft 


ii. .. 

Mil li^i 

},44;|ajx 

309 0 


12 

461.32128 

2.6640035 

310 b 

3 

13 

453.91109 

2.6388801 

-311 0 


__44__ 

— 445.19285 --- 

2.4483482 
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£-10 


512 0 

513 0 


SIS 0 
514 0 

-■317 O- 


511 0 
519 0 
-520- 0~ 


521 0 

522 0 


524 0 

525 0 
-52 4 0- 


527 0 
521 0 
-524-0- 


530 Q 

531 0 
-5320-- 

533 0 
334 o 
-533 0 - 


534 0 
537 0 
-538-0- 


539 0 

540 0 
-54.1.0. 


542 0 
343 0 
-544-0- 


543 0 

544 0 
-54.7-0- 


15 

14 


14 

19 


- 20 - 

21 

22 

-23- 


24 

25 


27 

24 


30 

31 


33 

34 

—35— 


34 

37 


39 

40 


42 

43 


45 

44 


49 

-30- 


544 0 
549 0 

—550—0—41-PLOT- M4XUS3- 
551 I NEW 
532 0 

■ 333 0 - 


554 2 1 
535 0 

-534 0-I 

537 0 4.6C+02+ 

534 0 


430*44771 
414*97118 
- 399.42223 
383*94053 
375.47574 
—34-P—04025— 


2*4343441 
2*4180179 
2*4014322 
2*5865204 
2*5746131 
—2*3470232- 


365*65363 

364.43585 

-363*83648 

3*2.13126 

357.76906 

- 340 - 35224 - 



-2*34354.2- 


33 6 . 8 4 723 
319.57199 
-294.12275 - 
273.23575 
245.83378 

187.40487 

158.25994 

-130*31654-. 

104.3459 

81.005746 


2*527433 

2*3045687 

-2*4743951 

2*4365375 

2*3906415 

2.3362617- 


2*2727808 
2.199371 
—2*114999$ 
2.0184754 
1.9085158 
-1*76362-23— 


43.968811 

30.572385 

-20*386679 

13.010745 

7.9329768 

4.6144754- 


1*6431*47 

1*4853293 

-1*3093445 

1*1143021 

•89943618 


2.557579 

1.3499929 

-.62717352- 

•32699374 

.14228371 

.09213902— 


•40782«u5 
.13033148 
» *.16930003 
-.48546056 
-.8468448 
■ 1.P313VU- 


con put co inissioi/AosotPTiON ppofilc 


540 0 
561 0 C 

-342 0 n 3.84+02 
563 0 X 

344 0 S 

34 5 . 0 . 1 


546 0 ] 

567 0 0 3.QE+02 

548 0 M h . 


















*41 0 IN SUBROUTINE PRINT-PLOT OPTION 3 WILL BE 
44* 0 PERFORMED ON RINGS OR ZONES 1 TO 50 
-4TO 0 PROFILE NUP6ERS* ■ —--6-J 

*71 0 

472 0 ») PLOT STATUS? 
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413 4 t 

414 • ( 8.3E*02* 

-443 4 l -——— 

444 • A 
447 • T 

444 a 


44t 4 V 6.*E«02« 
440 4 C 

UU.fi- 

442 4 ( 

443 4 4 

—444—4—1 A.8£*G2» 


443 4 $ 

444 4 5 
-447 4. I 




444 4 4 

444 4 4 3*1E+02+ 

—ICO 0 


701 0 V 

702 4 A 
-702 4-1- 


704 4 0 1.4C+02* 

705 4 E s 

■ 70 4 0 — .• -s_ 


707 4 
704 4 
—709.4— 


710 

711 O 
—712 0 


OaOE+OO*' 

-JUU* 




.1E*G1 


713 4 

714 4 NORMAL RETURN 
-713 0- 


-JLUU-mtiLaut 


5.oe*oi 


714 4 ») PLOT STATUS? 
717 I OVERLAY 
■ 118 4 


714 4 NORMAL. RETURN 
720 4 
-121 4 - 


722 • SUBROUTINE NUMBER*? 

723 X 4 

- 1 24 4 UNTfH OPTIO N ? _ 


723 X 34 

724 4 

-227. 4 IN SUBROUTINE SHIFT-OPTION . 
724 4 PERFORMED ON RINGS OR ZONES 
724 4 PROFILE NUMBERS* 

-130 — 4 — 


NILL BE - 

TO SO 

10 

AAE..A 1 f EC T EA— 


731 4 REINITIALIZING SYSTEM 

732 4 NHAT XS SPATIAL ZONE SIZE IN MICRONS? 

- -733 X SO ....__ 

734 4 NHAT XS LAST EMISSION RING? 

735 X 23 

. ., 71 4 4 SH OULD-tKE—TttANUU-UANCE-gJROFllU— PR0 1 E C TIO N... F LA4..4C. 
737 4 RECOMMENDED THAT IT 8E ON. 

734 4 ENTER *0N* OR '’OFF*’TOUR CHOICE? 

734 1 4N * . .. — . . . 
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m i is 

Tf* 0 pajor profile involved*? 

-it# i a. _ _ 

: too 0 SECONDARY PROFILE INVOLVED*? 

•01 1 00 

- JO? ft ._ ■ _ 

•£ 3 • 1,1 sueRouriNE print-plot option is will be 
• 04 o PERFORMED ON RINGS OR ZONES 1 TO SO 

—•05 0. PROFILE numbers*_1__ l 

•04 • NOPE? 

•07 I 1 


109 0 PROFILE 

•10 0 

-Jtt-0_ 

•12 0 

•13 0 


4 t THE U.C. EPISSION/A8SORPTION PROFILE IS PRINTED BELOW• 


—IRISH ON/C PS ILQN.CONC. 
105.44316 
140.5 7533 

-2S7-C2S4J_ 

344.5473 

409.99994 

-441.71294 ... 

779.16457 

495.02506 

—122-4.5494_ 

10CO 

972.65494 

—495.02506 _ 

779.16457 

441.71294 

—429*19992__ 

344.5673 

257.02845 

—169.57533 -_ 

105.84316 

62.499993 

—34.01522_ 

18.45301 

9.226504? 

—4.3644025 - 

1.9531244 

•32921579 

-.44757767 „_ 

1.2851423 

1.4428365 

—2.4999999 _ _ 

3.2045647 

3.4958229 

.4.4751233_ 

4.4632747 

5 

-4.1632747 . „ _ 

4.4751253 

3.4958229 

—3*203564 Z_ 

2.4V9V999 

1.8428365 

.1.2651423 .. 


-LOS Vtl.J) 

2 .0244628 
2.2293632 

-2*4311812- 

2.5665168 
2.69497 
- 2*4073408 
2.8916292 
2.9518352 


2.9879S44 
—2.9514352 
2.4916292 
2.8073408 

—2*49 81Z_ 

2.5645168 

2.4099812 

-2*2293432 

2.0246428 

1.79588 

1.2640472 
•94503717 
•43992479 
•29072995 
-.27436721 

•1089512 

.2454468 

•39793999 

•5C631079 

.59059919 

—.4508152_ 

•44692879 
.69897 
•68692879 
•4504052 
•59059919 
—5C4310Z9— 
•39793999 
•2654868 
•1089512 
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*-16 


•34 0 
•S3 0 
—4134 O 


43 

44 

A* 

••4747767 

.52921579 

.312A0007 

-.0716444 

-.27636721 

•37 0 
•34 0 


44 

47 

M 

•1745761 

.09226505 

-.7580152 
-1.0349628 
-1 5550075 

•40 0 


49 

•02182201 

-1.6611052 

•41 O 

—.... NAT * 


50 

•0097*562 

-2.0103 

•43 0 
•44 0 

_-»A< 1 

PLOT 

1 

OPTIONS. SHOULD 

ABSORPTION REGION"* 

PLOT STP0QL BE DISTINCT 

•44 0 

plot 

HAS 2 DIFFERENT 

SYMBOLS. 



•47 • SHOULD ABSORPTION REGION BE SCALED THE SANE AS THE EPISSION REGION 
-I4S-E4--- 


•4* I NO 
•70 0 

-1T1 Q BT PL0TSTATUS1 
•72 X KCM 
•75 0 

-47A-0 HONES- 

•75 X 1 
•74 0 
-4Z2 O 


U.C. ENISSXON/ABSORPTION PROFILE 


•74 0 
•79 0 

-440-0- 


1.QE+03 


441 0 

442 0 
■ ■•43 0 


444 0 X 

445 0 S 
-444-0 4, 

447 0 I 
444 0 0 
OISjO-A ■ 


490 0 

491 0 
-492-0 

493 0 

494 9 
-4.9.1. 0. L 


S 4.80+02 
I 


•94 0 0 
•97 0 N 
-41E 0 - 
499 0 C 
900 0 0 
-W-O. N 


3.10+02 


902 0 

903 0 
- 904 0 

903 0 

904 0 
-407-0. 


904 0 
909 0 
.910 0 . 


-0.00*00 


A 

A A 


A A 




1.0E«00 


2.1E+01 3.10*01 


5.04*01 
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*-17 


•11 • 

912 0 

-tiJ a MOMIL inum.-. 

•14 0 

•13 a 

- *1 4 0 RL - P1 0 T IT I TIH? . 


am* number 


*17 X MCW 

m • 

—*19-0- 

*20 0 NORMAL RETURN 

•21 0 

—*72 0---- 

*23 o subroutine number*? 

•24 X 2 

—•23 -0- WHICH. .OPTS OM ?- 

*24 X 1 

•27 O MAJOR PROFILE INVOLVED*? 
-*2* I ID_ _ 


*2* 0 

*30 O IN SUBROUTINE FORWARD OPTION 1 
~*3l_0 PERFORMED ON RINGS.OR ZONES - 1 
•32 0 PROFILE NUMBERS* fi 


WILL BE 
TO SO-- 


•33 • constructing default backlight profile. 
- *3 4 —jO af i, n » io q-L A t-n,j. . .z om l s i to so_ 


•35 0 IK FORWARD» PROFILE O • THE U.C. EMISSION/ABSORPTION PROFILE 
•34 0 WAS USED AS AN INPUT RADIAL EMISSION PROFILE. 

-* 32, ..0—IK FORWARD,. PROFILE b , THE U.C. EMISSION./ABSORPTION PROFILE__ 

•34 0 WAS USED AS AN INPUT RADIAL ABSORPTION PROFILE. 

•3* 0 OPERATING LIMITS WERE ZONES AND RINGS 1 TO 50 • 

- > Afl 0 OPTION -3-^AX..FXfciiTfB tm fnn-iflB. __ 


*41 0 OPERATION DESCRIPTION: 

•42 • COMPLETE RADIAL TO LATERAL EMISSION/ABSORPTION CALCULATION PERFORMED. 

—*43-4 _- . . ______ _____ 

*44 B SUBROUTINE number*? 

*4S I 4 

-•44, n wwrrw no nnki __ 

*47 1 13 

*44 • MAJOR PROFILE INVOLVED*? 

-*4*~l-3*___;_ 

*30 0 
*31 • 

4 


*53 • 
*54 0 
-93S-X- 
*34 0 
*57 0 
-134-0. 


IK SUBROUTINE PRINT-PLOT OPTION 13 WILL BE 
■ RJP I FflDHF D , Oh RXH&S—OR ?»>■» i rn cf _ 


profile numbers* 

HOPE? 

t.- 


PROPILE 3 , THE LATERAL INTENSITY PROFILE IS PRINTED BELOW. 


*5* 4 
*40 t 
-.*41 0 
*42 * 
*43 0 
-*44_ 


INDEX 

1 

—2 - 


•43 0 
•44 0 

-947 4_ i__ 


OBSERVED INTENSITY 

• 2878*546 
— *2*31 38SS 

• 30187176 
•3126277 

—3234.9642_ 


•33204661 

•33556683 

.33153908 


LOG V<I,J) 

-.54076518 
~ -.532*2706 
-.52017751 
—.5P497253 

-*.£*0.13053— 

—.476800*4 

-.47422097 

-.47940527 
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1004 o 

1005 • 
-1004-0- 

1007 0 
1001 0 


•31421744 
.21513543 
—24333218 
•22522486 
.18414113 
—143578.74- 
• 10657284 
.07519044 
—05035879 
.03197928 
.01923157 

,—.040 9343- 

•00584755 
.00295721 
—00134534- 
•00054352 
•00018298 
—13. 63 4974— 
12.220963 
10.712234 
-9.41397 
8.4149855 
7.794 7985 
—3L.6-153615— 
7.9689384 
9.0019219 
-10.955196 . 
14.183426 
19.124908 
-04.123632 
35.442374 
46.516342 
-38.401589 
49.799273 
79.575856 
-87,-122631— 
92.412442 
95.812501 
-12.63312 — 
98.958155 
99.546788 


••49727438 
••52997866 
.••57949606 
-.44737402 
-.73484918 
.-.,142,00964- 
-.97235346 
•1.1236374 
.2979247 
•1.4951313 
-1.7159853 
-»1 .961-1296- 
•2.2315433 
-2.529118 
—•2.8584*4 .. 
-3.2339431 
-3.7375867 

1.0871054 
1.02988 

- .97377279 
.92515657 
•89180488 

- .47170192- 
.90140*047 
.95433523 

—1*0396201 
1.1517911 
1.2815993 

_1 . M7 864_ 

1.5495228 
1.6676056 

- .1 .7664246 
1.8438509 
1.9007813 
? .emm 
1.9657304 
1.9814221 

—1.9904949 „ 
1.9954516 
1.9980255 
— 1 — 19135.09 _ 


1010 0 

1011 9 PLOT OPTIONS. SHOULD ABSORPTION REGION'S PLOT SYMBOL BE DISTINCT 
- 1012 .0 1 _____ __ _ 

1013 I Yts 

1014 0 PLOT NAS 2 DIFFERENT SYMBOLS. 


1016 0 ? 

1017 X TES 

-1018 0__ __ 

1019 0 D) PLOT STATUS? 

1020 X ACM 


1022 0 HOME? 

1023 1 1 

. 1024 0 — . 3 


-LATtRAL INTENSITY PftOFXLE 






1050 0 


loss o 
loss o 
-5014 0 




-*c 


1C35 0 

1054 0 
-10SZ-0- 

1051 0 

1055 0 

— mo o 


O.OE+OO* 


AAA A 


1 .01*00 


—1-UfQl 


1041 0 ROSHAL RETURN 

1042 0 
5043-0- 


-2--.1E+Q1 

ZONE NUMBER 


-3*1£+01 -A*.lC<H3t_ 


5-Qt+OI 


J£*J 0 •* ALOT STATUS? 
1045 1 ABORT 
—10A A... 


JJfJ 0 tSCAHf RETURN 
1061 0 

—1069.0 _ 

Jo?? i J UM 0 U *" X,IC '« 5 S 5 «iui “ 

- ~ JnT? O ^ UTriJ flfTTOR 3,__ 

1073 1 3 

—107S X 3o J °* ** 0flLt 1AVOLVE0-? 
"~1074 0 * " 


lall ? I" SUB *°« T 1*« mirt-alot oation 3 

J2I! ! **UM8CRS* 3 ,--- 

10J, . «*|.«W L W« s , M0l „ 0XSTJMCT 


WILL BE 
_< n 


-1041 0 ? 








iota i yes 

1QS3 O PLOT NAS 2 DXFFE«EnT SYMBOLS* 

—1044 0 SHOULD ABSORPTION BE&IOH BE SCALED THE SAME AS THE EMISSION BC610N 

tots 0 ? 

1036 1 MO 

«n**» * 


toil 0 0> PLOT STATUS? 

1040 S NEW 

—1090- 0 _ .. _._ 

1091 0 HOME? 

1092 Z 1 


1100 0 2.8E-Q1+ 

1101 O 0 : 

-1102 0 S-: 

1103 0 S : 

1104 0 E 



1124 0 O.OE 

1123 0 

-1126 0 -_ 

1127 O 

1124 0 


*4C*at_2»1E+01_-3..1E + 01 4»1E +01 

ZONE NUMBEB 


1130 0 MOMMAL BETUBN 

1131 a 

-1132 0 .... 

1133 0 D) PLOT STATUS? 

1134 l NEW 

_ 1133 ft_ 

1136 0 

1137 0 NORMAL BETUBN 

-1134 0 _*__ 













RELRTIVE EHISSJ0N VRLUE 
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* *-» 


U.C. RflOIflL EMISSION PROFILE 



RING NUMBER 
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* M3 


LATERAL INTENSITY PROFILE 



i 












EMISSION/EPS IU0N.CONC 
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• *-23 


COMPUTED EMISSION/A8S0RPTION PROFILE 



RING NUM8ER 
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* 1-28 


LATERAL INTENSITY PROFILE 



ZONE NUMBER 


t 





Appendix B 


PEPSUB 

The software documented in this appendix was originally 
written by Dean T. Stueland. The present author has made some 
revisions in both the software and documentation. 

I. Introduction 

PEPSUB is a subroutine, written in BASIC, used to accept data 
from a PEP terminal and, by linking to a FORTRAN program, display 
it again at the same terminal. The heart of the system are 
FORTRAN subroutines available at MACC for plotting on the CalComp 
plotter or at a PEP terminal. However, it is not possible to call 
FORTRAN subroutines from BASIC so PEPSUB writes a file, named PLOT 
which contains instructions and data. This file is then read by 
a FORTRAN program, called BASIC-PEP, which calls the appropriate 
routines. 

There are^several options available to a user of MACC's 
graphing subroutines. It could be difficult specifying all of 
these options at one time. So, to make the use of PEPSUB easier, 
certain options, which are not likely to be changed, are kept 


671 


constant and the user need not worry about them. The other 
options are handled by one of two methods: 

Cl) The user specifies each option one at a time and 
PEPSUB only advances to the next option when an 
acceptable response has been given to the present one. 

(2) The user may elect not to use the options. In this 
case, PEPSUB supplies a default value for each of the 
options. It is also possible to get the default value 
for a given option when using the first method of 
specifying options. 

If the user selects the first method, he can switch to the second 
method partway through the sequence. However, once he has selected 
the second method, it is not possible to switch to the first since 
there is no opportunity for user input until after the options 
have been supplied by PEPSUB. 

The data to be graphed can be entered into PEPSUB in one of 
two ways. It is possible to fill arrays with data in the calling 
program which are .then passed to PEPSUB. Also, it is possible 
to enter the data into the computer in pairs, where the first 
number is the abscissa and the second is the ordinate. A 
special pair signals PEPSUB that all the data has been entered 
and control is returned to the calling program. 

If at any time, one discovers that he has made a mistake or 
has some other reason for wanting to get out of PEPSUB, there is 
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a special command which immediately allows one to exit from 
PEPSUB. Although this immediate return can be used anywhere 
within the subroutine, PEPSUB insures that the file is kept in 
order by writing out default values for each of the options and 
by placing an appropriate flag after the options which indicate 
that they are not to be used. This method of return is called 
an "escape return". 

Besides receiving the plot on the PEP screen, it is possible 
to request the data to also be plotted on the CalComp plotter. 
PEPSUB accepts the options while BASIC-PEP (see below) displays 
the data at the PEP screen and allows the user to decide if the 
data should be plotted on the CalComp. 

The FORTRAN program, BASIC-PEP, works in a two step process. 
First, it assigns a temporary drum file and loads all the 
Instructions and data onto it. It reads the data from the file 
prepared by PEPSUB and checks if an "escape return" has been used. 
The Instructions which are flagged as belonging to an "escape 
return" are not saved in the drum file. The first pass through 
the data gives BASIC-PEP two features: 

(1) BASIC-PEP can interact with the user through the 
standard input file. It can respond immediately to 
the user’s input without interfering with the reading 
of the data. 



(2) As part of Its control, BASIC-PEP needs to only read 
the next line in the drum file to know what sort of 
function is next. Otherwise, it would be necessary 
for BASIC-PEP to process a whole block of data before 
it wuld find out if an "escape return" had been used. 
It closes this phase of the run by giving the number of 
successful calls to PEPSUB (called "normal returns") and the 
number of "escape returns". 

In the second phase, BASIC-PEP reads through the drum file 
written in the first phase and displays each block of data. Then 
if the user wishes, it also commands the data to be plotted on 
the CalComp plotter. 

A description of the routines used by BASIC-PEP is found in 
three different MACC manuals: 

(1) Graphics Handbook 

(2) Graph: Complete Graph Plotting Routine 

(3) The GSP Primer. 

A listing of BASIC-PEP appears in Appendix B-3. 
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II. Instructions for Programing 

Since PEPSUB is meant to be used as a subroutine, it is 
necessary for the user to provide a calling program. BASIC will 
then replace the call to PEPSUB by GOSUB 9000, but only if the 
user*s program file contains PEPSUB. It can be put into a file 
in one of three ways: 

(1) If PEPSUB is in a file, such as CHEMISTRY*WALTERS, it 
can be copied into the user*s file by a statement of 
the form 

@C0PY,SC CHEMISTRY*WALTERS.PEPSUB,NEW*FILE. 

where NEW*FILE. could be replaced by the name of any 
user file. 

(2) If PEPSUB is not in a file, it can be loaded from 
cards, using BASIC. An example is: 

@BA$IC NEW*FILE. 

NEW:PEPSUB 

PEPSUB program cards 

SAVE 

BYE 

J 

where NEW*FILE. could again be any user file. 



(3) Another way to load PEPSUB from cards is to use the 
ELT processor, which reads directly from cards to 
®®rciory. This method will not produce a deck listing. 

0ELT.SI NEW*FILE.PEPSUB 
PEPSUB program cards 

If the user file needs a write key, then the file should be 
assigned, before either the COPY, ELT, or BASIC statement with 
the write key. 

When BASIC incorporates PEPSUB into another program, each 
line from PEPSUB is written into the new program. Therefore 
after PEPSUB has been incorporated into the new program, there 
is no reason to save it unless usage in other programs is 
envisaged. It can be deleted and the file packed if appropriate 
by statements of the following type: 

@DELETE,SC NEW*FILE.PEPSUB 
0PACK NEW*FILE. 

or, using BASIC 

0BASIC NEW*FILE. 

OLD: PEPSUB 
UNSAVE. 

BYE 

0PACK NEW*FILE. 
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where NEW*FILE could be any user file and should be assigned with 
a write key if one is needed. It roust be remembered that PEPSUB 
must be in the user file when the calling program is written. 
There are six points to remember in writing a program to use PEPSUB: 

(1) There must be at least one statement of the form: 

m CALL PEPSUB 

When BASIC encounters this statement, it will 
incorporate PEPSUB into the program and change the 
above statement to 

m GOSUB 9000 

(2) The statements number 9000 through 10000 cannot be used 
by the calling program since there are reserved for 
PEPSUB. 

(3) Certain variables must be included and others may 

not be used. Since PEPSUB is prepared to accept data 

from arrays named X and Y, they must be provided in 

the calling program using the DIM statement, which 

must be numbered less than 9000 since arrays must be 

dimensioned before they are used. If the X and Y 
* 

arrays will not be used, a statement of the form 
m DIM X(1),Y(1) 







Is adequate. If the arrays will be used a statement 
of the form 

m DIM X(100),Y(100) 

Is necessary. The X and Y arrays must be dimensioned 
large enough so that all points for one plot may be 
loaded simultaneously into the arrays. 

No variable name using the letter Z can be used 
by the calling program. These letters are reserved for 
use as flags by PEPSUB. The variables which are used 
and their use is listed in Appendix B-l. 

(4-) The calling program needs no END statement since PEPSUB 
supplies one at statement number 99999. 

(5) The calling program may use files, but it must not use 
a file numbered 9 because this is the file number on 
which PEPSUB writes. Likewise, the calling program 
must not write on a file or read from a file named PLOT 
because that is the file which PEPSUB uses. 

(6) Once a statement 

m CALL PEPSUB 

i 

has appeared in a user's program, further PEPSUB calls 
can most economically be achieved by saying 


n GOSUB 9000 


Saying "Call Pepsub" each time one desires to call the 
subroutine will result in the subroutine being 
repeatedly reread from the drum file, which is 
needlessly consumptive of execution time and money. 

A listing of PEPSUB is shown in Appendix B-2 
along with a flowchart of the routine. 
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III. Instructions for Using PEPSUB 

When PEPSUB has been correctly included into a program, one 
can use it simply by instructing BASIC to run the program. When 
PEPSUB is called the first statement from PEPSUB will be the 
statement: 

ENTER PEP SUBROUTINE 

Then it will proceed to ask information from the user. This 
section goes over each question and the allowable responses. 

Before going into each question in detail it is necessary 
to remember certain responses which have special meaning. 

(1) M" is used to get an escape return. When it is 
used as a response to any question, PEPSUB immediately 
gives up control of the run and returns to the calling 
program. It will print out the message 

ESCAPE RETURN 

(2) "-2" is used to get the default value when one is 
available. 

(3) “-3"*is used to get out of the options section. It is 
used when one has asked for options, but then realizes 
that he does not want options. 
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The following is a description of each question and its 
possible answers. 

(A) SHOULD CALCOMP PLOTTER CAPABILITY BE TURNED ON? 

This question is to find out if any of the plot in 
the run will be saved on paper by the CalComp. If 
one answers affirmatively, he is still not forced to 
save any plot. However, if one answers negatively, he 
cannot get any hard copy plot. There is an advantage 
to answering negatively, though, because the program 
runs a little more cheaply and rapidly if it does not 
need to worry about hard copy plotting, and there is a 
small savings in file charges. The possible answers 
are "YES" and "NO". The default value yields "YES". 

(B) PAPER SIZE ("URGE" OR "SMALL")? 

Plotting paper at MACC comes in rolls of two sizes, 
30-inch (29.3 inches available for actual plotting) and 
11-inch (10.8 inches available). The 30-inch paper is 
"LARGE" and the 11-inch paper is “SMALL". The 
available width (29.3 inches of 10.8 inches) must be. 
greater than or equal to the small of the dimensions 
which can be specified in questions L-2 and L-3 
concerning the size of the plot. The default value 


is "SMALL". 
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This question is only asked if the answer to 

question (A) was affirmative, since it has no meaning 

if no plotter paper is being used. 

(C) LIQUID INK ("YES" OR "NO")? 

The standard pen used on the plotter is ball-point. 

This is not adequate for sane purposes, such as being 

able to make xerox copies of the plots. It is 

possible to instruct that a liquid ink pen be used. 

This results in a higher quality plot, but is more 

expensive since the plotter is then run at one-half 

speed. The default value is "NO". 

This question is also not asked unless the answer 

to question (A) was affirmative. 

Question (A), (B), and (C) are only asked once in a run. 

Once the paper and pen have been chosen, they cannot be 

changed. However, if the escape return is used from 

any one of these three questions, they will all be 

repeated since they are considered together. 

(D) TYPE OF PLOT: NEW, OVERLAY, OR NONE? 

There are two ways in which one may use data in PEPSUB. 

The data may be plotted as it stands, in which case 
* 

one'is making a NEW plot, or the data may be superimposed 
on the last preceding NEW plot, i.e. overlaid on that 
previous plot. To obtain a new plot with fresh axes. 
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labels, options, etc., the plot type entered is NEW; 
similarly to overlay plots a plot type of OVERLAY is 
entered. The default type is NEW. Each time PEPSUB 
is called, one NEW or OVERLAY plot may be generated. 

If a plot type of NONE is chosen, all plotting 
functions are skipped and question (N) concerning 
whether any further plots are to be generated is 
asked. This allows one to enter PEPSUB inadvertently 
without affecting the plot file or to enter PEPSUB 
solely for the purpose of closing the plot file or 
initiating actual plot generation. 

(E) OPTIONS? 

As mentioned in the introduction, it is possible to 

either specify the options or request that the default 

values be used. This question controls which method 

will be used. The affirmative answer ("YES") will 

result in the options being requested from the user 

so that the next question is (F). The negative answer 

("NO") will result in the default values being used 

for the options so that the next question is (M). The 

default value is "NO". 

* 

(F) TITLE? 

The title can be any combination of letters, numbers, 
and symbols as long as there are no more than 60 
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characters and the first character is not The 
default value is "PLOT n" where n refers to the n-th 
call to PEPSUB. 

(6) X AXIS LABEL? 

This label has the same restrictions as the title. 

The default value is “X AXIS". 

(H) Y AXIS LABEL? 

This label has the same restrictions as the title and 
the label for the x axis. The default value is "Y AXIS" 

(I) SYHBOL CODE? 

It is possible, but not necessary to have a symbol 
displayed at each data point. The possible codes are 
2ero Through fifteen and are shown in Appendix 8-4. The 
default value is not to display any symbol. The only 
way not to use a symbol is to use the default code. 

(J) DASH CODE? 

It is possible, but not necessary to have line segments 
which connect the data points. The possible codes are 
zero through twenty-three. The codes one through 
twenty-three are the dashed patterns as shown in 
Appendix8-4. Zero is a special code which means no line 
segment between points. The default value is a solid 
line. To get a solid line, one must use the default 
code. 
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(K-1) MAXIMUM (X AXIS)? 

(K-2) MINIMUM (X AXIS)? 

(K-3) MAXIMUM (Y AXIS)? 

(K-4) MINIMUM (Y AXIS)? 

The above four questions are considered together 
because it is necessary to answer each correctly to 
make this option work. The default response to any one 
of the questions causes the default value for the whole 
option. The default option is for the axis scales to 
be adjusted to just accommodate the maximum and minimum 
along each axis. However, by specifying the maximum 
and minimum values in this option it is possible to 
make different scales along the axes. Note that maxima 
may not be equal to minima, otherwise no plot is 
generated. The program checks for this conflict and 
reasks the max./min. question until a satisfactory 
answer is received. 

(L) SPECIAL PAGE COOE? 

This option specifies the size of the page used for the 
plot. It only applies to plot coming off the plotter 
since the size of the screen at the PEP is fixed. If 
the answer to question (A) was “NO" this question will 
nevei' appear and the next question after (K-4) would 
be (M). 
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There are two ways to specify the size of the cage 
to be used. The first way is to specify the pair of 
options from Appendix D of the MACC manual, CONTOUR 
(see Appendix B-4»last two pages). In this case, the 
response to this question should be the first of the 
pair. After checking if the response is legitimate, the 
next question will be (L-l). The second possibility is 
to specify the length and width (in inches) of the page 
to be formed. In this case, the response to this 
question is NUMBER and the next question is (1-2). The 
default option is for a square page of the maximum 
possible size (10.8 inches by 10.8 inches if the 
response to question (B) was SMALL; 29.3 inches by 
29.3 inches if the response to questions (8) was LARGE). 

(L-l) SECOND OPTION? 

If the response to question (L) was the first of a pair 
for an option from Appendix E of GRAPH, this is asking 
for the second of the pair. Following this, the next 
question is question (M). 

(1-2) SIZE OF X AXIS? 

(L-3) SIZE OF Y AXIS? 

If the response to question (L) was NUMBER, this is 
requesting the size n inches of each of the two axes. 

The smaller axes must be no more than the paper width 
(10.8 inches or 29.3 inches) and the larger axes must 
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be no more than fifty inches. Following the correct 

answer to these, the next question is (M). 

(H) DATA FROM PEP OR X & Y ARRAYS 
ANSWER ("PEP” OR "XY")? 

As mentioned previously, there are two ways by which 
PEPSUB can accept data. The first way is to take the 
data from arrays which were written by the calling 
program. This is the response XY. The abscissa is 
taken from the X array and the ordinate from the Y array. 
In this case, the next question is (M-2). 

The second method of accepting data is to take it 
directly from the PEP. This option works in the 
following way. First, PEPSUB prints out the following 
message: 

(M-l) INPUT THE COORDINATES BY PAIRS 
POINT 1 = ? 

To this the user responds with the abscissa and the 
ordinate in the following manner: 

x v Y i 

Both the abscissa and ordinate (separated by a comma) 
must be included in the response. After accepting the 
two values PEPSUB goes on to request the second and 
third pair of values and so on so that the i-th value 
is requested as: 


w 
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POINT i * ? 
and the user responds 

V Y i 

To stop Inputting values, the user responds with the 
values 

- 2,-2 


At this time, PEPSUB prints out the following message 
NORMAL RETURN 

and control is returned to the calling program. 

The special response 

- 1,-1 

is recognized as calling for the escape return. To 
enter data points which are numerically equal to 
commands, change the data slightly so that no change 
will be apparent on the plot but the typed in data 
will no longer be the same as a command. For example, 
to plot the point (-1,-1), the input response could be 

- 1 . 000001 ,- 1.000001 
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(M-2) HOW MANY POINTS? 

PEPSUB branches to this question if the answer to 
question (M) was XY. It wants to know how many values 
out of the X and Y arrays should be used. The user 
responds with some value, N, which is no more than 250 
and no less than one. PEPSUB then takes the first N 
values out of each array as the abscissa and ordinates 
for the N points. 

(N) DONE WITH PLOTTING FOR THIS RUN? 

When the user has entered the last of the data to be 
plotted into PEPSUB, the plot file must be closed so 
that the FORTRAN program, BASIC-PEP, can actually, 
produce the plots. To inform the program that no more 
plot data will be entered, question (N) is answered 
either YES or Y. To be able to generate further plot 
data, the answers -3, -2, -I, NO or N are acceptable. 

If any of the latter five answers is given, PEPSUB 
immediately returns run control to the calling program. 
If the answer to question (N) is YES or Y, question 
(0) is then asked. 

Once question (N) is answered affirmatively, 
further calls to PEPSUB will generate a diagnostic, 
followed by question (0). 
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CO) TO PLOT ON THE PEP TERMINAL IMMEDIATELY, TYPE 'PEP* 
OTHERWISE TYPE TTY' OR 'BATCH 1 ? 

Only the three words listed in the question are legal 

responses to question (0); no default exists. To 

immediately call BASIC-PEP and generate plots, the 

correct answer is PEP; to return program control to the 

user's BASIC program, either TTY or BATCH may be 

entered with equal affect. If either TTY or BATCH is 

the answer to question (0), a later call to PEPSUB will 

allow the user once again to choose among the three 

responses. When control of the' program is returned 

from PEPSUB to the calling program following questions 

(N) or (0), PEPSUB prints NORMAL RETURN to indicate that 

all is in order. After such a return, PEPSUB may be 

called again at any time by the main calling program. 

Note that the last input a user can give while 
still in BASIC is the answer PEP--this response triggers 
a chain of events which stops the user's program, 
terminates BASIC, and starts plot generation. If one 
does not wish to generate plots immediately following 
the running of his BASIC program, one may preserve the 
plotifile for future use by entering the statement 


@SAVE,S PLOT. 
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after a BYE command in BASIC and before he says @FIN. 

The plots may then be accessed as described below. If 
the plot file is not to be used after 4:30 A.M. on the 
morning following plot file production, the @SAVE command 
is not needed. If the file was saved, it may be erased 
by entering the statement 

^DELETE PLOT. 

The above sequence of questions may be altered by different 
situations. However, the change is always in the direction of 
skipping questions, never altering the order. The conditions 
where the questions can be skipped are as follows: 

(1) After a call to PEPSUB which successfully reaches 
question (D), there is no longer any need for questions 
(A) through (C) and they are skipped by any subsequent 
calls to PEPSUB. 

(2) If the response to question (D) is OVERLAY, then 
PEPSUB automatically skips to questions (I), (0), and 
then (M). However since question (I) is in the option 
section, the special response -3 will cause question 
(J) to be skipped so that the next questions is (M). 

(3) Whenever the response to question (E) is NO or -2, 
questions (F) through (L) are given the default values 
and the next question is (M). 
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(4) After question (N) has been answered affirmatively, the 
only question which will be asked on further calls is 
question (0). 

To produce plots a second time, to produce plots at the PEP 
terminal after a teletype or batch run, or to obtain plots if one 
never answered PEP in question (0) even though that was the user’s 
intent, one may enter the following sequence of statements: 

6ASG.A PLOT. 

0ADD.P PLOT. 

This is done automatically for the user if question (0) is 
answered PEP. 

Note that if hard copy is to be obtained, one should not 
rerun the plotting routine in the same run in which the plots 
were generated. If such duplication is attempted, all hard 
copy may be destroyed. 
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IV. Error Messages 

PEPSUB cannot prevent all errors, but it tries to help by 
only accepting certain responses. If it does not recognize the 
response to any question, it repeats the question. Note this 
does not prevent the problem that certain responses, which nay be 
legal are not acceptable in certain cases. For these cases, 
PEPSUB prints out warning messages. This section goes through 
the messages printed by PEPSUB and explains what they mean. Note 
that all of these messages are preceded by two asterisks. 

**Y0U CANNOT DO AN OVERLAY WITHOUT AT LEAST ONE NEW PLOT 
This message is displayed when one answers OVERLAY to 
question (D) before there has been a successful plot. Question 
(D) is repeated until one chooses NEH, NONE, or -2. 

**BUT YOU HAVE NO SYMBOL EITHER 

This message occurs when the response to (I) (symbol code) 

“2, indicating no symbol and the response to question (J) (line 
code) is zero, indicating no line. If these responses were 
accepted, one would get a plot with no data displayed. 

Question (J) is repeated so that one can choose a different 
line code. .* 
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**THE MAX & MIN CANNOT BE EQUAL 

This is printed during any part of question (K) if the 
maximum and minimum values for either axes are equal. Just the 
maximum and minimum values for the axis concerned are requested 
again. 

**THE OPTIONS OPTION 1 AND OPTION 2 DO NOT MATCH 

This is printed when the answer to question (L) (OPTION 1) 
and the answer to question (L-l) (OPTION 2) do not go together 
as specified by Appendix E of GRAPH. Question (L) is again 
repeated. 

**BOTH AXES CANNOT BE GREATER THAN W 

This is printed after one has specified the size of both the 
x axis and the y axis. The response to each must have been less 
than 50 or the question would have been repeated. However, one 
of the axes must be less than W (10.8 or 29.3, depending on the 
size of the paper) so that the page can be put on the paper. 

**THE OBSERVED MAX & MIN ARE EQUAL FOR 1 AXIS 

Should default minimum and maximum values be specified for 
setting axes and the minimum and maximum be the same, then this 
diagnostic is printed, an ESCAPE RETURN generated, and control is 
returned to the plotting program. This essentially means that 
horizontal and vertical lines may be plotted only if non-default 
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axis limits are specified or the lines are plotted as an overlay. 
The line may tilt over its length by as little as one part in 
10® and still get by this obstacle. 

**FIL£ HAS BEEN CLOSED. NO MORE PLOTS IN THIS RUN. 

This diagnostic appears after question (N) is answered 
affirmatively. This is to remind the user that the only portion 
of PEPSUB still accessible is question (0). 

♦♦FILE WAS CLOSED ON LAST CALL. 

NO MORE PLOTS ALLOWED. 

When only question (0) may be asked, this diagnostic is 
printed to explain to the user why questions (A) through (N) are 
not asked. 
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V. Instructions for Using BASIC-PEP 

The instructions for using BASIC-PEP are much simpler than 
the instructions for using PEPSUB since PEPSUB has taken care of 
the options. There are really only three types of questions asked 
by BASIC-PEP. It operates much like PEPSUB in that it recognizes 
-2 as the default option and -1 as the escape option, meaning to 
stop the program. If it does not recognize the response to a 
question, it also repeats the question until it gets an acceptable 
response. 

The first thing that BASIC-PEP does is read a flag as to 
whether or not any hard copy plot should be generated (as set by 
question (A) of PEPSUB). Then it reads through the file and 
writes the controls for each plot on a separate file. If an 
escape return has been used, the control section belonging to that 
plot is not saved. Then it clears the screen, prints out the 
number of normal returns and escape returns encountered and asks 
the following question 

READY TO BEGIN PLOTTING? 

When YES or -2*is responded, it clears the screen and places the 
first plot on the screen. 

After each plot or overlay, there are two types of questions 
asked. (There are more than two different questions, but the 




696 


differences are easily understood when using the program.) The 
first type of question concerns whether or not the particular 
plot or overlay should be saved. (This type of question is not 
used if no plot can be generated on the plotter.) If the answer 
is YES, the plot or overlay will be saved. If the answer is NO 
or -2, the plot will not be saved. 

The second type of question asks if the user is ready for 
the next plot or overlay. When BASIC-PEP receives an answer 
of YES or -2, it will go onto the next plot or overlay. 

When all the plotting is finished, BASIC-PEP will clear the 
screen and inform the user of how many plots have been generated 
on paper. If some plots have been generated, it reminds the user 
of the job number. Then it displays a message saying that this 
is the end of this job. The user is in EXEC mode and can call 
another processor. 

If one is attempting to get hard copy in a batch run, 
bypassing the PEP terminal, a simple procedure is possible. After 
the PEP card in the data deck (in response to question (0)), a 
series of cards saying YES in columns 1-3 should be entered. The 
number of such cards needed is 2 * N + 1 where N is the number of 
NEW and OVERLAY plots produced. Thus the deck structure would be: 

j 
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VI. Kotes for Easier Usage 

Although the previous explanations should be adequate as far 
as using the program is concerned, this section contains a few 
notes Wrfda should make usage less painful. 

(1) Cost! Since PEPSUB and BASIC-PEP do a lot of 
bookkeeping work for the user, they can get expensive. 
for this reason, they are designed to handle no more 
than 250 points. This means that they take less memory 
and run faster than if they were larger. Furthermore, 
the PEP screen can only handle about 200 points without 
giving redundant information. However, the user is 
encouraged to use no more points than necessary and’to 
use the escape return sparingly since it requires 
handling by the computer for which the user gets no 
plot. 

(2) Delay: At certain times both programs, but especially 
BASIC-PEP, may apparently stop processing for a few 
secsDnds^ This is usually due to the program being 
occupied with some internal task. There are two times 
When BASIC-PEP commonly stops for a short delay. The 
firsi is at the very beginning when it is reading 
through the input file. The second is observed 
Whenever it is supposed to save a plot or overlay. 
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(3) Options: A user can more easily get an idea of how the 
programs run by not using the options initially. Then 
when he is familiar with the default options, he is in 
better shape to choose options intelligently. It is 
usually less frustrating to go into a session with a 
good idea of what options one will use. 

(4) Screen blinking: At certain times, the screen will 
blink. This is expected and depends on the condition 
of the PEP (a good screen blinks less) and how busy the 
1110 is (there are fewer blinks when it is not busy). 
The blinks apparently occur when the 1110 is purging 
the buffer space and there is a momentary break in 
instructions from the 1110. 

(5) Prior to running PEPSUB, BASIC-PEP must be on file in 

core image format. Loading BASIC-PEP, while different 

than loading a BASIC program, is no more difficult. A 

complete listing of BASIC-PEP along with all control 

cards properly sequenced is included as Appendix B-3. 

All that must be added to this deck is an @RUN card 

(with a $10.00 cost limit) an @PASS card, and an @FIN 

card at the end, and BASIC-PEP will load itself, 
a 

(6) An individual user may wish to "hard-wire" some of 
PEPSUB's options. Program modifications may be done 
as the user sees fit provided that the order in which 
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options are specified is not modified. In other words, 
the source of the value of an option or the default 
value may be changed, but the sequence of option 
specification must not be altered. 

(7) PEPSUB currently allows only 250 points to be plotted. 
To expand capabilities to 1000 points requires changes 
to both PEPSUB and BASIC-PEP. One thousand-point 
versions of the routines are available. The 1000-point 
version of PEPSUB is called PEPTH0U and the 1000-point 
version of BASIC-PEP is called BIGGER-PEP. PEPSUB may 
be turned into PEPTHOU independently by making the 
following changes: 

(a) Dimension X and Y arrays to 1000 points each. 

(b) Replace the number 250 in statements 9588 and 9634 
with the number 1000 (see Appendix B-2). 

(c) Rewrite statement 9108 to read 

9108 Let Z2$='@XQT CHEMISTRY*WALTERS.BIGGER-PEP' 

That's the easy part, and can be done "on the fly" in 
BASIC. BIGGER-PEP, however, must be created in a separate batch 
run. The easiest procedure is to load the BIGGER-PEP deck into 
the computer tan appropriate deck is available). The differences 
between BASIC-PEP and BIGGER-PEP are listed below. Numbers at 
the start of each line are the numbers at the far left of the 
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listing In Appendix B-3, not FORTRAN line numbers. Lines should be 
modified to read: 

Page PM 1-8: 

00013 DIMENSION XDATA (1000), YDATA (1000), 

XSAVE (5, 1014), YSAVE (5, 1014) 

(Note that only one NEW plot and four OVERLAY 
plots may be made in a group; more overlays 
would be allowed if XSAVE and YSAVE were 
dimensioned 6 or 7 by 1014 instead of 5 by 1014. 
This number was chosen in a trade-off between 
cost and capabilities.) 

00205 XSAVE (1, 1001) = 2 

00206 XSAVE (1, 1002) = -9 

00207 XSAVE (1, 1003) =0 

00218 XSAVE (KP, 1001) = IPOINT 

00219 XSAVE (KP, 1002) = ISYMBL 

00220 XSAVE (KP, 1003) = LINE 

00330 IPOINT = XSAVE (1, 1001) 

00331 ISYMBL = XSAVE (1, 1002) 

00333 LINE = XSAVE (1, 1003) 

00343 IPOINT = XSAVE (J, 1001) 

00347 ISYMBL = XSAVE (J, 1002) 

00349 LINE = XSAVE (J, 1003) 
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Page PM-11: 

00002 DIMENSION ISAVE (10, 1014), IN8UF (10) 
Page PM-12: 

00001 8MAP.I CHEMISTRY*WAITERS//01.BIGGER-PEP 


Cost is directly proportional to the number of plotable 
points, so use discretion when considering using the enlarged 
plotting package. 


t 
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Appendix B-l 

VARIABLES USED BY PEPSUB 


Name 

Type 

Description 

X 

Numeric Array 

Used to pass abscissa values from the 
calling program to PEPSUB. 

Y 

Numeric Array 

Used to pass ordinate values from the 
calling program to PEPSUB. 

Z1 

Numeric 

Keeps track of how many times PEPSUB has 
been called. This information is also 
used as a flag. 

Z2 

Numeric 

Contains the maximum size of the plot 
paper. It is also used to check 
whether plot can be saved by this run. 

13 

Numeric 

Contains a numerical code representing 
the plot type as follows: 



1 NEW 



2 OVERLAY 



3 NONE 



It is used as a flag several times during 
each call to PEPSUB. 

Z4 

Numeric 

Contains the type of the last completed 
call to PEPSUB. It is also used 
temporarily when accepting data. 

Z5 

Numeric 

Used in accepting data. 
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Name 

Type 

Description 

Z6 

Numeric 

Used in checking page options and size 
and in accepting data. 

17 

Numeric 

Used in accepting the line code, minimum 
values, and size of y axis. It is also 
used in checking the page options. 

Z8 

Numeric 

Used in accepting symbol code and 
maximum values and for checking the page 
options. 

Z9 

Numeric 

Contains, with Z3, information about the 
status of this call to PEPSUB. -Its 
status can change, while the status of 

Z3 is fixed throughout the call. 

z$ 

String Array 

Contains the page option. 

z$ 

String 

Accepts input for plot type and options. 

Zl$ 

String 

Used as string format. 

Z2$ 

String 

Accepts input for most questions 
requesting string input. 

Z3$ 

String 

Used as numeric format. 

Z4$ 

String 

Used in checking page options and 
whether or not plot can be saved. 

Z5S 

String 

Holds information concerning paper size 
and liquid ink option. 

Z6$ 

String 

Accepts input as to whether or not 
liquid ink should be used. 

Z7$ 

String^ 

Serves as flag as to whether or not any 
plot will be generated. 
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Appendix B-2 
LISTING OF PEPSUB 
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13-1 


1 

2 

2 

8 

S 

* 

• 

. 3 
lO 
IX 
12 

13 

14 

13 

14 
17 
13 
13 


3002 

3004 

3004 

3008 

3010 

3012 

3014 

3014 

3018 

3020 

3022 

3024 

3024 


3030 

3032 

3034 

3034 

3038 

3040 

3042 

9044 

3044 

3048 

3030 

3032 

9034 

3034 

3058 

3040 

3042 

3044 

3044 

9048 

3070 

3072 

3074 

3074 

3078 

3080 

3082 

3084 

9084 

3088 


'ENTER PEP SUBROUTINE' 

tSf;' THfULL ' *THFULL * BHFULL ,FULL , FULL , THFULL 

p SHSSSSP 

LET 22*0 
Bin 2«52> 

iSAjfS 11 C * LC0 " P PL0TTER “P«n-ITY BE TURNED ON-. 

IF 22*-'-l' THEN 9718 
IF E 2 **'” 2 * THEN LET Z 2 *-'TES' 

^ QR 223-'YES' THEN 9042 

60 TO *028 

IF 22*-*N0' THEN LET Z7*-' 

IF Z2*-'.N0' THEN 9078 


ELSE LET Z7«- # 8GSP»Pr' 


(•LARGE* OR "SHALL*> ' I 


'*> PAPER SIZE 
INPUT 224 
IF 22*—'-1* THEN 9718 
LET 22-0 

IF 22*—'LARGE' THEN LET Z2-29.3 
1F 22*—'SHALL' THEN LET Z2*10.8 
IF Z2*»*-2' THEN LET Z2-10.3 
IF Z2-0 THEN 9044 


'C> LIQUID INK 
INPUT 24* 

IF 24*—'—2' THEN LET Z4*« 

IF 22*—'—1' THEN 9718 
IF 24*—'NO' OR Z4*-'YES' THEN 9078 
60 TO 9044 


(•res- or "no*)' i 


*-'N0' 


9094 

9094 

3098 

9100 

9102 

9104 

9104 

9108 

9110 

9112 


HAT READ Z* 

F0R SYM »°LIC OUTPUT AS FILE 9 

UtT <9—0 

5 Sli-'-'T^ N 9108 NT ° N ’ IN IMfiGE Z1 ’ :Z7 ’ 

IF 22-10.a AND Z6«»'N0' THEN 9108 

IF 24*—“NO' THEN 9100 

IF 22*10.9 THEN 9104 

LET 23*—'PLOTTER PAPER/30»PEN/LIQ' 

CO TO 9104 

let 22*—'plotter paper/30' 

60 TO 9104 

let 23*—'plotter pen/lto' 

PRINT ON 9 IN IMAGE Zl*:Z3* 

wn^T?; ^fSe s I«Tz;i TERS - B '' SIC - PEP ' 

PrtlNT ON 9 IN IMAGE 'ZZ.ZZZZ'iZ2 




707 


♦114 

♦114 

♦lie 

9120 
9122 
9124 
9126 
♦128 
♦130 
..*♦132 
: 9134 
♦134 
♦138 
♦140 
♦142 
♦144 
♦144 
♦140 
♦130 
♦132 
♦134 
♦134 
♦138 
♦140 ( 
♦142 I 
♦144 < 
♦144 f 
♦140 £ 
♦170 f 
9172 • 
♦174 ' 
♦174 1 
♦178 1 
♦180 I 
♦182 1 
♦184 I 
♦104 1 
♦188 L 
♦190 G 
♦192 LI 
♦194 fti 
♦194 II 
♦198 ' 
9200 ' 
9202 II 
9204 It 
9204 If 
♦208 If 
♦210 If 
9212 If 
♦214 Pf 
♦214 GC 
9218 Pf? 
9220 Pf 


14 LET Z1-Z1M 
14 LET X3*0 
IB IF Z4»5 THEN 9734 
JO ' ' 

!2 LET Z9*0 

!* INPU^M ° F PL0Tt NEU ’ 0UERLflr > OR NONE') 

! 8 \ f Z*»'-l' THEN LET Z9»-l 

:? £ **—} «N0 *<«>! THEN LET Z3-Z 

4 Vf S2J.5S £iT 0N 9 IN I ' iaGE n*r- 

1 THEN LET ZT-'NEU- 
4 LET Z3*0 

0 IF Z**'NEU' THEN Z3*l 

2 IF Z*=*'OVERLAT' THEN LET Z3-2 
4 IF Zt-'NONE' THEN LET Z3*3 

4 IF Z3*0 THEN 9US 
0 IF Z3*2 AND Z4*2 THEN 9142 
0 IF Z3<>2 THEN 9142 
| IF Z3*2 AND Z4»l THEN 9142 

} SeU N PLOT°- AN ° UERL,,r UITHQUT *T LEAST' 

) GO TO 9118 
J LET Z9-Z3 

f ON Z3 GO TO 9170r9146p9644 

} 9276 ^ 1MAGE Z:,! ' 0UER LAT- 

> PRINT ON ? IN IMAGE Z1»:'NEU PLOT' 

‘ '£> OPTIONS 'i 
» INPUT Z* 

IF THEN LET Z9—1 

IF Zt-'-l' THEN 9218 
If Z*»'-2' THEN 9192 
IF Z*»'NO' THEN 9192 
IF ZFO'YES' THEN 9172 
LET Z9*l 
GO TO 9194 
LET Z9*0 

REM — TITLE — 

IF Z9<»0 THEN 9218 

# F) TITLE'> 

INPUT Z2* 

IF Z29»'-2' THEN 9218 
If 229*'—!' THEN LET Z9=-l 
If Z2»*'-l' THEN 9218 
J F ™ EN LET Z?»0 

If Z2*»'-3' THEN 9218 


t IF Z2V«'-2' THEN 9218 
i IF Z2t»'-1' THEN LET Z9—l 
t IF Z2*»'-l' THEN 9218 
t Jr’*'” 3 ' THEN let z9»o 
■ IF Z2«*'-3' THEN 9218 
1 FttlNT ON 9 IN IN AGE Zl*:Z2* 
i GO TO 9224 

I PRINT ON 9 IN INAGE 'ZZZZZ' t 'PLOT'f 
PRINT ON 9 IN INAGE 'ZZZZ2':Zl 
VZ rt __ . A „ — LABEL FOR X-AXIS — 

IF Z9<*0 THEN 9244 
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113 

1U 

117 

110 

119 

120 
121 
122 

123 

124 

123 

124 

127 

128 

129 

130 

131 

132 

133 

134 

133 

134 

137 

138 
130 

140 

141 

142 

143 

144 

143 

144 

147 

148 
140 

130 

131 

132 

133 

134 

133 

134 

137 

138 
ISO 

140 

141 

142 

143 

144 

143 

144 

147 

148 
140 

170 

171 


0228 ' Q) X AXIS LABEL * I 
0230 INPUT 224 

0232 IF 224*'-3' THEN LET 20*0 

0234 IF Z24*--2' THEN 9244 

0234 IF Z24*'-3‘ THEN 0244 

0238 IF 724»'-l' THEN LET 20*-l 

0240 IF Z2**'-l' THEN 9244 

9242 PRINT ON 9 IN IMAGE Z14JZ2* 

9244 GO TO 9252 

9244 PRINT ON 9 IN IMAGE Z14J'X AXIS' 
9248 IF 29<*0 THEN 9270 
9250 REM — Y-AXIS LABEL — 

9252 ' * 


9254 ' H) Y AXIS LABEL' I 
9254 INPUT 224 

9258 IF Z24*'-l' THEN LET 29—1 
9240 IF Z24*'-3' THEN LET Z9»0 
9242 IF 224*'-!' THEN 9270 


9244 PRINT ON 9 IN IMAGE Z14:Z24 
0248 GO TO 9274 


0270 PRINT ON 9 IN IMAGE Z145'Y AXIS' 
9272 IF Z9<*0 THEN 9300 


0274 REM 
0274 ' ' 


— SYMBOL AT EACH BATA POINT — 


0278 ' I) SYMBOL CODE'I 

0280 INPUT Z8 

0282 IF 28>13 THEN 9274 

0284 IF 28*-1 THEN LET Z9—1 

0284 IF Z8—3 THEN LET Z9-0 

0288 IF Z9»—1 THEN 9300 

9290 IF Z8—2 OR Z8—3 THEN 9300 

0292 IF Z8<0 THEN 9274 

0294 IF Z80INTfZ8> THEN 9276 

9296 PRINT ON 9 IN IMAGE 'ZX'2ZB 

0298 GO TO 9306 

9300 PRINT ON 9 IN IMAGE 'XX':'-9' 

9302 IF Z9<*0 THEN 9340 

— LINE T0 CONNECT BATA POINTS — 


9308 ' J) BASH CODE'* 

9310 INPUT Z7 

9312 IF Z7>23 THEN 9306 

9314 IF Z7—l THEN LET Z9—1 

9316 IF Z7—1 THEN 9340 

9318 IF Z8—2 AND Z7»0 THEN 9330 

9320 IF Z7—3 THEN LET Z9»0 

9322 IF Z7—2 OR Z7—3 THEN 9340 

9324 IF Z7<0 THEN 9306 

0326 IF Z70INTCZ7) THEN 9306 

9328 GO TO 9336 

9330 ' ' 


9332 '** BUT YOU HAVE NO SYMBOL EITHER' 
9334 GO TO 9306 

9336 PRINT ON 9 IN IMAGE 'XX'JZ7 
7338 GO TO 9348 

.’0340 PRINT OM 9 IN IMAGE 'XX' • '-9' 
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15-4 


X72 

173 

174 

175 
174 
177 
171 

* 177 

111 
111 
112 
183 
184 

183 

184 

187 

188 
187 

171 

in 

172 

173 

174 

175 
174 

177 

178 
177 
211 
211 
212 

213 

214 

213 

214 

217 

218 
217 
210 
2H 
212 

213 

214 

215 
214 

217 

218 
217 
221 
221 
222 

223 

224 

225 
224 

227 

228 


7342 

7344 

7344 

7348 

7350 

7352 

7334 

7334 

7358 

7341 

7342 
7344 
7344 
7348 

7371 

7372 
7374 
7374 
7378 


IP 29 <0 AND 23*2 THEN 7438 
IF 27<»0 AND 2302 THEN 7384 

"« THEN AMD 

* K-l> MAXIMUM CX AXIS)') 
INPUT 28 

IF 29*-1 THEN LET 27—X 
IF 23—1 THEN 9384 
IF 28—3 THEN LET 27*1 
IF 28—3 OR 28—2 THEN 7334 


7382 

7384 

7384 

7388 

7371 

7372 
7374 
7374 
7378 
7411 
7402 
7414 
7404 
7408 

7411 

7412 
7414 
7414 
7418 

7421 

7422 
7424 
7424 
7428 
7430 
7432 
7434 
7434 
7438 

7441 

7442 
7444 
7444 
7448 
7430 

35 


' K-2> MINIMUM <X AXIS) * t 

INPUT 27 

IF 27—1 THEN LET 27—1 

IF 27—1 THEN 7384 

IF 27—3 THEN LET 27*1 

IF 27*—3 OR Z7—2 THEN 7384 

5 i£IS » 350 r " THE “ x * w " CflMHOr Be equal- 

PRINT ON 7 IN IMAGE Z3*r 27,28 
GO TO 9372 

PRINT ON 7 IN IMAGE 'ZZZ'l'Q 0' 

GO TO 9434 

REM — MAX t MIN ON Y AXIS — 

LET Z4*l 

f K-3) MAXIMUM <Y AXIS) ' > 

INPUT 28 

IF 23—1 THEN LET Z9—1 
IF ZS—1 THEN 9434 
IF 28—3 THEN LET Z9*l 
IF Z8—3 OR Z8*-2 THEN 9434 


# K-4> MINIMUM fT AXIS) ' ) 

INPUT Z7 

IF Z7—1 THEN LET 27—1 
IF Z7—1 THEN 9434 
IF 27—3 THEN LET 29*0 
IF 27—3 OR 27—2 THEN 9434 
IF 27028 THEN 9430 

'« THE MAX t MIN CANNOT BE EQUAL' 
GO TO 9392 

PRINT ON 9 IN IMAGE 23*527.28 
GO TO 9440 

PRINT ON 7 IN IMAGE 'tZX'l'l 0' 

LET X3=l 

— PAGE SIZE — 

IF Z7**' - ANO 27>0 THEN LET Z7*0 
IF 29<*0 THEN 7474 

' L) SPECIAL PAGE CODE') 

INPUT 22* 

IF 22**'-1 'OR Z2*»'-2* OR 22** 

IF 22**'NUMBER' THEN 9302 
FOR 24*1 TO 24 


'-3' THEN 9494 
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W-5 


229 

230 

231 

232 

233 

234 

233 

234 
237 
230 

239 

240 

241 

242 

243 

244 

243 

244 
247 
240 
244 
230 
251 

232 

233 
234 . 


234 

237 

230 

239 

240 

241 

242 

243 

244 

243 

244 

247 

248 

249 

270 

271 

272 

273 

274 
273 


274 

277 

278 

279 
200 
201 
282 

283 

284 
283 


9434 LET Z7*Z6 

9458 IF Z2*>ZS<Z4> THEN 9444 

9440 NEXT Z6 

9442 GO TO 9444 

9444 LET Z4»0 

9444 ' - 

*440 ' L-l> SECOND OPTION'I 

9470 INPUT Z4« 

9472 FOR Z8*Z7 TO 26 

9474 IF Z4*»Z*(Z8+24) AND Z2*»Z*<Z8> THEN 9484 
9474 NEXT Z8 

9478 IF Z4*«'-2' OR Z4*»'-l' OR Z4*«'-3' THEN 9494 
9480 ' ' 

9482 '** THE OPTIONS '*Z2*I' AND 'JZ44I' DO NOT HATCH' 
9484 GO TO 9444 

9484 PRINT ON 9 IN IMAGE Zlt •'SPECIAL CODES' 

9488 PRINT ON 9 IN IMAGE Zlt:Z*(ZS> 

9490 PRINT ON 9 IN IMAGE Zl«:ZC<Z8+26> 

9492 GO TO 9334 

9494 PRINT ON 9 IN IMAGE Zlt:'NUMBER' 

9494 PRINT ON 9 IN IMAGE Z3*:Z2»Z2 
9498 IF Z2*»'-l' THEN LET Z9*-l 
9500 GO TO 9332 

9302 PRINT ON 9 IN IMAGE ZltS 'NUMBER' 

9304 ' ' 

*504 ' L-2) SIZE OF X AXIS'I 

9308 INPUT Z6 

9310 IF Z6*-l THEN LET Z9»-l 
9312 IF Z6»-l THEN 9348 
9314 IF Z4«-2 THEN 9548 
9314 IF Z4<0 THEN 9304 
9318 IF Z6>30 THEN 9504 
9320 ' ' 

9522 ' L-3> SIZE OF Y AXIS'I 

9324 INPUT Z7 

9524 IF Z7—1 THEN LET Z?*-l 

9328 IF Z7—I THEN 9548 

9330 IF Z7*-2 THEN 9348 

9332 IF Z73S0 THEN 9320 

9534 IF Z7'0 THEN 9520 

9334 IF Z7<»Z2 OR Z6<«Z2 THEN 9544 

9338 ' ' 

9340 '** BOTH AXES CANNOT BE GREATER THAN ' IZ2 
9342 GO TO 9504 

9344 PRINT ON 9 IN IMAGE Z3*!Z6rZ7 
9344 GO TO 9334 
9348 LET Z6*Z7»Z2 

9330 PRINT ON 9 IN IMAGE Z3*:Z6»Z7 
9332 IF Z9<0 THEN 9638 
9554 ' ' 

9334 'H> DATA FROM PEP OR X * T ARRAYS'f 
9338 ' ' 

9340 ' ANSWER < , PEP» OR •XY*)'» 

9342 INPUT Z2t 

9344 IF Z2«*'-l' THEN LET Z9«-l 
9344 IF Z2«*'-l' THEN 9638 
,9548 IF Z2**'PEP' THEN 9608 
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PS-6 


28 * 

287 

208 

209 

290 

291 

292 

293 

294 

293 

294 

297 

298 

299 

300 

301 

302 

303 

304 

305 
30 * 

307 

308 

309 

310 

311 

312 

313 

314 
313 
31 * 

317 

318 

319 

320 

321 

322 

323 

324 
323 
32 * 

327 

328 

329 

330 

331 

332 

333 

334 
333 
33 * 

337 

338 

339 

340 

341 

342 


09370 

09572 

09574 

0957* 

09578 

09580 

09582 

09584 

0958* 

09588 

09590 

09592 

09594 

0959* 

09598 

09600 

09602 

09604 

09606 

09608 

09*10 

09*12 

09614 

09616 

09*18 

09*20 

09622 

09624 

09626 

09628 

09630 

09632 

09634 

09636 

09638 

09*40 

09642 

09644 

0964* 

09*48 

09650 

09652 

09654 

09656 

09658 

09660 

09662 

09664 

0966* 

096*8 

09670 

09672 

09674 

09676 

09678 

09680 

-09682 


XT' THEN 9576 


— INPUT FROM X * Y ARRAYS — 


IN IMAGE Zltt'DATAFQLLOWS' ELSE 9638 


IF 224 
GO TO 9558 
REM 

H-2) HOW MANY POINTS 
INPPT 24 

IF Z4«-l THEN LET Z9*-l 
IF Z4»-l THEN 9638 
IF Z4<1 THEN 9576 
IF Z4>250 THEN 957* 

IF INT ( Z4) Z4 THEN 9576 
IF X5*l THEN GOSUB 9770 
IF Z9-:>-l THEN PRINT ON 9 
FOR Z5=l TO Z4 

NEXT T Z5 N 9 IN IMAGE 23SIXCZ3) ’ Y <Z3> 

LET Z4»Z4+1 
GO TO 9640 

„ — INPUT FROM THE TTY — 

-I-ON 9 IN IMAGE Z14! 'DATAFOLLOWS' 

' INPUT THE COORDINATES BY PAIRS' 

LET 24*24+1 
'POINT 'JZ4*' » *} 

INPUT Z5fZ6 

If ll:t l SLSE IF GOSUB ,7K 

IF Z5—2 AND Z6=-2 THEN 9640 

IF Z9=-l THEN 9644 

PRINT ON 9 IN IMAGE Z34:Z5»Z6 

IF Z4->250 THEN 9644 

GO TO 9618 

PRINT ON 9 IN IMAGE Z14J'EARLY ESCAPE' 

IF Z4<3 THEN LET Z9*-l 

IF Z90-1 AND X5=l THEN GOSUB 976*> 

PRINT ON 9 IN IMAGE '7.ZZZZ'l'-i -t ' 

? F It** 1 THEN PRlNr 0N 9 IN IMAGE Z14:'NODATA' 

LET Z4-0 1 THEN PRINT ° N 9 IN IMAGE ZltS 'ENDOFDATA' 

REM — END OF ONE PLOT — 

^ E 2 CHECK THE STATUS OF THE PLOT — 

R f" v ~ RETURN FOR ',N£U' — 

IF Z90-1 THEN LET Z4*Z3 
IF Z9»—I AND Z3»2 THEN LET Z4»l 
IF Z2»-'-l' THEN 9718 
PRINT ' ' 

INPUT 0 ^ 01 ™ PL0TTINC F0R THIS R UN'» 
l* 224*'YES' OR Z24*'Y' THEN 9*84 
IF OR Z24»'-2' OR Z24«'N0' 

IF 224*'-!' OR Z24»'N' THEN 9676 


THEN 9676 

ELSE 9664 


'NORMAL RETURN' 
RETURN 
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pa-7 


343 

344 

343 

344 
347 
343 
343 

330 

331 

332 

333 

334 

333 

334 
337 
333 
359 
340 


9434 REM ~ CLOSE FILE AND TERMINATE PLOTTING — 

9484 LET Z2**'0£OF' 

9488 PRINT ON 9 IN IMAGE ZHJZ2* 

9490 CLOSE 9 
9492 ' ' 

9494 '** FILE HAS BEEN CLOSED. NO MORE PLOTS ALLOWED IN THIS RUN.' 
9494 ' ' 

9498 '0) TO PLOT ON THE PEP TERMINAL IMMEDIATELY, TYPE "PEP"' 

9700 ' OTHERWISE TYPE "TTY" OR "BATCH' "t 
9702 INPUT Z2* 

9704 PRINT ' ' 

9704 IF Z2*»'PEP' THEN 9710 

9708 IF Z2»*'TTY' OR Z2*»'BATCH' THEN 9728 ELSE 9498 

9710 'EXIT FROM BASIC' 

9712 EXEC '0ASG,A PLOT. . ' 

9714 EXEC 'ffADDrP PLOT. . ' 

9714 STOP 
9718 ' ' 

9720 'ESCAPE RETURN' 

9722 ' ' 

9724 IF Z301 THEN LET Z4-Z3 ELSE LET Z4-0 
9724 RETURN 

9728 'NO EXIT FROM BASIC' 

9730 'FURTHER CALLS TO PEPSU8 WILL NOT PERMIT PLOTTING.' 

9732 LET Z4-5 
9734 RETURN 

9734 '** FILE WAS CLOSED ON THE LAST CALL.' 

• 9738 ' NO MORE PLOTS ALLOWED.' 

9740 PRINT ' ' 

9742 00 TO 9498 

9744 REM-CHECK FOR MAX X MIN FROM M-l- 

9744 LET X6»X7*Z3 
9748 LET X8*X9»Z6 
9730 RETURN 

9732 IF Z3<X6 THEN LET X6*ZS 
9754 IF Z3>X7 THEN LET X7»Z3 
9734 IF Z4<X8 THEN LET XS»Z4 
9738 IF Z6>X9 THEN LET X9-Z4 
9740 RETURN 

9742 IF XA-X7 OR X8*X9 THEN LET Z9—1 
9744 IF Z9*-l THEN COSUB 9794 
9744 RETURN 

9748 REM-CHECK FOR MAX I MIN FROM M-2--- 

9770 LET X4=X7*X<I> 

9772 LET X8*X9»rCl) 

9774 FOR Z5*2 TO Z4 

9774 IF X<Z5XX4 THEN LET X4*X(Z3> 

9778 IF X<Z5>;X7 THEN LET X7*X<Z3) 

9780 IF Y<Z5XX8 THEN LET X8»YCZ5> 

9782 IF YCZ3)>X9 THEN LET X9»Y(Z3> 

9784 NEXT Z5 

9784 IF X4»X7 OR X8*X9 THEN LET Z9«-l 
9788 IF Z90-1 THEN 9792 
9790 COSUB 9794 
9792 RETURN 

9794j REM-PRINT OUT PROBLEMS WITH MAX I MIN--- 

9794 * ' 
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»4 


400 

401 

402 

403 

404 

403 

404 

407 

408 


7778 
7800 
7802 'X MIN 
7804 'X MAX 
7806 'Y MIN 
7808 'Y MAX 
7810 * ' 
7812 RETURN 
99999END 


** THE OBSERVED MAX 


' tX6 
'fX7 
* tXQ 
' 1X7 


1 MIN ARE EQUAL FOR 1 AXIS* 



y 
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PEPSUB FLOWCHART 
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Appendix B-3 
.LISTING OF BASIC-PEP 


To load BASIC-PEP, the program as listed on pages PH-1 
through PM-12 may be loaded directly as given, with the only 
additional cards needed being an @RUN card, an @PASS card, and 
an 9FIN card (the first two at the beginning of the deck and 
the last one at the end). In order to obtain the listing, it 
was necessary to add some cards to the program as it is to be 
loaded; the statements which are actually part of the program 
are sequenced starting with a line number 1 for each of the 
four subroutines. So to create the correct deck, use only the 
sequentially numbered statements, and ignore the @HDG and other 
extraneous lines. 
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Appendix 8-4 

OASH PATTERNS, PLOT SYMBOLS, AND PAGE FORMATS 

Dash Patterns and Dash Mode Plotting (Appendix A) 

Argument JDASH in the calling sequences of GRAPH and GRAPHM 
accepts INTEGER values in the range 1 < JDASH < 23 ; these values 
specify that line segments connecting adjacent plotted points be 
drawn using a dashed line whose pattern is selected by the value 
of JOASH from the table below. The patterns illustrated are 
based on a unit length of one inch; changes in the unit length of 
the page-level coordinate system (effective only when 
PGWID * 6HPREDEF option is used) increase or decrease the lengths 
of the dash pattern elements proportionately. (If a unit length 
less than 0.5 Inches is used, the dash element lengths are 

somewhat greater than expected, since no element may be shorter 
than 0,05 inches.) 

* 





Dash Lengths 


0.1 

0.2 

0.1 and 0.2, 
alternating 

0.3 

0.1 and 0.3, 
alternating 

0.5 

0.1 and 0.5, 
alternating 

0.2 and 0.5, 
alternating 

0.75 

0.1 and 0.75, 
alternating 

0.2 and 0.75, 
alternating 

0.3 and 0.75, 
alternating 

1.0 

0.1 and 1.0, 
alternating 

*0.2 and 1.0, 
alternating 

0.3 and 1.0, 
alternating 
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Value 

of JDASH Dash Lengths Dash Pattern 


17 

0.5 and 1.0, 
alternating 






18 

1.5 



19 

0.1 and 1.5, 
alternating 






20 

0.2 and 1.5, 
alternating 






21 

0.3 and 1.5, 
alternating 






22 

0.5 and 1.5, 




alternating 


23 


0.75 and 1.5 
alternating 




Centered Symbols (Appendix B) 
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Value of LSYMBL 


Symbol Drawn 
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Appendix B-5 

SAMPLE RUN WITH EXPLANATION 

Pages PD-1 through PD-5 contain an example program using 
PEPSUB and a sample hard copy plot. Herewith is a line-for-line 
explanation of what occurred in producing the plot on page PD-5. 

Page PD-1: 

UWLG is the sign-on code from a DECWRITER, the teletype-like 
device used for the run. The 1110 computer, recognizing the code, 
typed back the line starting "MACC. 

An @RUN statement was entered to start interaction (UWLG 
assigns a phone line but does not allow processing to begin—only 
a RUN statement can do that). A run identification number, which 
is necessary to identify any plot which may be produced, is 
assigned as Y49292. The user's password is solicited and, after 
being correctly entered in the blacked out space, the run is 
allowed to continue. 

At the titoe the run was made, there were some problems with 
the normal version of BASIC, so the back-up version was used. It 
is anticipated that the normal version will be fixed on or about 




August 15, 1977, at which time the line starting "@LIB*BACKUP.. 
should be replaced by the standard command: 

@BASIC CHEMISTRY*WALTERS//01. 

The //01 is the write code for the file CHEMISTRY*WALTERS without 
which it is impossible to store a new program on the file. 

With BASIC running, a program called PLOTDEMO is written, 
which will produce a parabola. Line 80 is of particular 
significance. First of all, the first attempt to enter the line 
was erroneous; the line was ignored by the computer because the 
command CTRL key with the X key on the DECWRITER was entered (as 
shown by the two question marks). As the present version of 
PEPSUB was under development at the time the sample was run, the 
name of the subroutine was PEP2 rather than PEPSUB. So as of the 
time this documentation is finished, line 80 should be entered as: 

80 CALL PEPSUB 

rather than as 

i 

80 CALL PEP2 


as shown here. 
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The first few lines of the program were then listed. Note 
that statement 80 was automatically changed to "Gosub 9000". 
Indeed the first few lines of PEPSUB as given in the listing in 
Appendix 8-2 are present starting at line 9000. Note that the X 
and Y arrays were dimensioned in statement 10, at the beginning 
of the program. After this listing was completed, the command 
to RUN the program was given. 

Page PD-2: 

The program ran and listed out the data which was stored in 
the X and Y arrays. Forty-one points were calculated. Notice 
the effect of round-off error (for example, X for point 15 should 
have been -0.6 but was instead -0.59999999). This will not show 
up in the plot but should be considered when writing programs to 
produce the numbers. 

After listing the numbers, PEPSUB was called. The questions 
were answered so as to have the following effects: 

(A) Hard copy may be obtained. 

(B) Small (11-inch width) paper is to be used. 

<C> Liquid ink will be used (thus allowing for easy tracing 
or Xerox copying). 

* 

Page PD-3: 

(D) As it is desired to plot thedatajust calculated, the plot 
type is NEW. If "None" had been entered, no plot would 
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be generated and question (N) would be asked; "Overlay" 
would have generated a diagnostic as there are no old 
plots on which to overlay at this point. 

(E) Options are requested by answering YES here. This 
allows the demonstration of some nonstandard features 
of PEPSUB. 

(F) The title PARABOLA Y=X**2 was chosen; see page PQ-5 
to see how this appears on the plot. 

(G) . (H), (I), (J) 

Default (-2) entries were made. This resulted in the 
title of the X axis being X AXIS, the title of the 
Y axis being Y AXIS, no symbol at each point, and a 
solid line connecting the points. 

(K) It was decided to make the scales on the axes large 
enough that the plotted points would all fall within 
the drawn boundaries without touching those boundaries. 

X data ran from -2 to +2, so X minima and maxima were 
set at -2.5 and 2.5 respectively. Had "-2" been 
entered, the X minima and maxima would have been -2 and 
respectively, the default values of 0 for minimum 
and 4 for maximum on the Y axis would have been used. 

As ft was, non-default values were entered. Notice for 
the Y axis minimum that -1 was the value desired, but a 
number slightly different from -1 was actually used to 
prevent PEPSUB from taking an ERROR RETURN. 
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(L) The standard plot for small paper is 10.8 by 10.8 
Inches. It was decided that standard paper size of 
8.5 by 11 inches would be desirable for the output plot 
so that it would fit onto standard size paper. The 
answers to question (L), (L-2), and (L-3) allowed 0.1 
inch margin on each side of the plot area and fit the 
whole plot into the proper space. Note that the 
dimensions are for the plots including labels; the 
actual drawing exclusive of labels is three inches 
smaller in each direction than the numbers specified 
In the (L) questions. 

(M) Data to be plotted appears in the X and Y arrays. The 
alternative would be to type in the numbers from the 
terminal which could be done if the answer "PEP" were 
given. Question (M-2) gives the number of points to 
be plotted. All 41 calculated points are to be plotted. 
If a number greater than 41 had been entered, a line 
would have been drawn from the last plotted point (2,4) 
to the origin (0,0) and the point (0,0) repeatedly 
plotted. 

(N) As there are more features of PEPSUB to be demonstrated, 
the answer to question (N) was NO. A normal return 


ensued. 
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At this point the main program inquires as to whether another 
call to PEPSUB is desired. The answer is affirmative. Note 
that until question (N) is answered "YES", termination of the 
program will result in loss of plotted output, i.e. no plots 
will be obtainable. The rest of page PD-3 shows the closing 
of the plot file, a decision not to view the plot immediately, 
and another question as to what should happen next by the main 
program. 

Page PD-4: 

Now that the file has been closed, notice what happens when 
PEPSUB is called. After exiting from PEPSUB, the main program 
is shut down. BYE nad @FIN complete the run. 

To obtain the plot shown on page PD-5, it was necessary to 
run out the plot on the PEP terminal. The commands used were 
as follows: 

UWGT 

0RUN AS,41000,1893602639,35.00 

(a run ID number was assigned by the 1110 and a password 
entered) 

0ADD.P PLOT. 

(Do not ferget that period! Also, only the individual who 
made a PEPSUB run can obtain plot using the above command. 
Second parties can obtain the plot if they know the original 
user's ID number. For example, the ID number shown in all 
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the sample runs Is 1893602639. If user 12345 wanted to 
obtain plot from 1893602639's runs, he would enter, instead 
of the @ADD command above, 

@ADD,P 1893602639*PLQT. ) 

BASIC-PEP was automatically called into action by the @ADD 
command. To all further questions posed by the program, the 
answer YES was given. The run ID was noted at the end of the 
run just before @FIN,C was entered, and the plot obtained from 
the I/O window in the basement of the computer center. A 
photocopy of that plot appears on page PO-5. 

Total cost of the two runs was $1.13. There are some 
hidden costs, however: 

0) File charges amounted to about 40<t. This is unavoidable 
but is fairly independent of the number of plots 
produced by any given run. 

(2) Plotting Itself took three minutes, which costs $1.00 
using liquid ink. 

(3) Evening rates applied, so that $1.13 is only 60% of the 
full daytime charge. Overall, had this run been made 
during the day the cost including hidden costs would 
have J been $3.28. Experience shows that marginal cost 
for plots other than the first in a run is about $1.00 
including all hidden charges. 


UULG 

hacc 33.14 mr U 02044 
•RUN AS*41000*1893602639*95*00 
WJNIB*Y49292 DATEJ073077 TIHE5095319 
PASSWORD PLEASE 


nun 

CONTINUE 

•LIB4BACKUP.BASIC CHEHISTRYtWALTERS. 
BASIC X4.0.4 09:55537 30 JUL 77 

>neu:plotbemo 

>10 DIN X < 230) * Y (250) 

>20 PRINT 'N' • 'X' * 'Y # 

>30 FOR N«1 TO 41 
>40 LET X<N)-<N-21)/10 
>30 LET Y<N)-X(N»«92 
>40 PRINT N*X<N)*Y(N> 

>70 NEXT N 
>80 PT? 

80 CALL PEP2 
>90 PRINT 'AGAIN'I 
>100 INPUT E* 

>110 IF El-'YES' THEN 90 
>120 STOP 
>99999 END 
>LIST 1*9010 

PLOTDENO 09:39513 30 JUL 77 


10 DIN X<230> *YC230) 

20 PRINT 'N'*'X'.'Y' 

30 FOR N*1 TO 41 
40 LET X(N)»<N-21)/10 
30 LET Y<NJ-X(N>**2 
40 PRINT N»X(N)* Y<N) 

70 NEXT N 
•O GOSUB 9000 
90 PRINT 'AGAIN'5 
100 INPUT E« 

110 IF E*»'YE5' THEN 80 
120 STOP 
9000 ' ' 

9002 'ENTER PEP SUBROUTINE' 

9004 ' ' 

9004 DATA HALF .HALF* THFULL * BHFULL * THFULL * BHFULL f FULL * FULL * THFULL 
9008 DATA THFULL * FULL * FULL * FULL * FULL * DOUBLE t DOUBLE * DOUBLE * LHDBLS 
9010 DATA RHDBLE *LHDBLE* RHDBLE * RHDBLE * RHDBLE * LHDBLE * LHBBLE* DOUBLE 

>mw 
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XD-2 


PLOTDEMO 

09:59:45 

30 JUL 77 

N 

X 

r 

1 ' 

-2 

4 

2 

-1.9 

3.41 

•5 

-1.0 

3.24 

4 . 

-1.7 

2.89 

9 

-1.4 

2.54 

4 

-1.5 

2.25 

7' 

-1.4 

1.94 

• 

«rl.3 

1.49 

9 

-1.2 

1.44 

10 

-1.1 

1.21 

11 

-1 

1 

12 

-.9 

.00999999 

13 

-.0 

.43999999 

14 

-.7 

.48999999 

15 

-.59999999 

.35999999 

14 

-.5 

.25 

17 

-.4 

• 14 

It 

-.3 

.09 

17 

-.2 

.04 

20 

-.1 

.01 

21 

0 

0 

22 

• 1 

.01 

23 

.2 

.04 

24 

.3 

.09 

25 

• 4 

.14 

24 

.5 

.25 

27 

.59999999 

.35999999 

2S 

.7 

.48999999 

29 

.8 

.43999999 

30 

.9 

.80999999 

31 

1 

1 

32 

1.1 

1.21 

33 

1.2 

1.44 

34 

1.3 

1.49 

35 

1.4 

1.94 

34 

1.5 

2.25 

37 

1.4 

2.54 

30 

1.7 

2.89 

39 

1.8 

3.24 

40 

1.9 

3.41 

41 

2 

4 


ENTER REP SUBROUTINE 

A> SHOULD CALCOMP PLOTTER CAPABILITY BE TURNED ON? YES 
») PAPER SIZE ('LARGE* OR "SMALL* >? SMALL 
Cl LIQUID INK CYES* OR *NO*>? YES 
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•> TYPE or PLOT* NEW# OVERLAY t OR NONET NEW 

C) OPTIONS? YES 

r» TITLE? PARABOLA Y«X#*2 

•I X AXIS LABEL? -2 

H» T AXIS LABEL? -2 

I) snoot CODE? -2 

J> DASH CODE? -2 

K-l> MAXIMUM <X AXIS)? 2.5 

K-2> MINIMUM (X AXIS)? -2.3 

K-3* MAXIMUM <Y AXIS)? 5 

MINIMUM CY AXIS)? -l.OOOl 

U SPECIAL PAGE CODE? NUMBER 

L-2> SIZE OF X AXIS? 8.3 

t-S> SIZE OF Y AXIS? 10.8 

N> DATA FROM PEP OR X * Y ARRAYS 
ANSWER C*P£P* OR *XY')? XY 

M-2> MOW MANY POINTS? 41 

N> DONE WITH PLOTTING FOR THIS RUN? NO 

normal return 

again? yes 

ENTER PEP SUBROUTINE 

D> type or plot: new* overlay, or none? none 

NJ DONE WITH PLOTTING FOR THIS RUN? YES 

** PILE HAS BEEN CLOSED. NO MORE PLOTS ALLOWED IN THIS RUN. 

0) TO PLOT ON THE PEP TERMINAL IMMEDIATELY# TYPE 'PEP' 
OTHERWISE TYPE 'TTY' OR 'BATCH'? TTY 

NO EXIT FROM BASIC 

FURTHER CALLS TO PEPSUB WILL NOT PERMIT PLOTTING. 

AGAIN? YES 



743 


ID-4 


ENTER PEP SUBROUTINE 

*S FILE WAS CLOSED ON THE LAST CALL. 

NO MORE PLOTS ALLOWED. 

0» TO PLOT ON THE PEP TERMINAL IMMEDIATELY. TYPE 'PEP' 
OTHERWISE TYPE 'TTY' OR 'BATCH'? TTY 

NO EXIT FROM BASIC 

FURTHER CALLS TO PEPSUB UILL NOT PERMIT PLOTTING. 
AGAIN? NO 


TINE : I.100 


>BYE 

UNXUAC BASIC 10! 04:10 30 JUL 77 

GFXNfC 

RUNXD: Y49292 PROJECT: 41000 USER: 1893602639 


ITEM 

AMOUNT 


COST 

CPU TIME 0:00:03.052 


*0.17 

FILE I/O REQUEST 

47 


*0.04 

FILE r/0 WORDS 

44413 


*0.04 

SWAP REQUESTS 

1 


*0.00 

SWAP WORDS 

19436 


*0.01 

MEMORY USAGE 

0.131 


*0.14 

CARDS IN 

340 


*0.08 

PAGES PRINTED 

3 


•0.04 

CONNECT MINUTES 

8 


*0.08 

ER + CC 

8 


*0.09 

JOB CHARGE 

1 


•0.06 

TOTAL cost 



*0.73 

BASED ON RATES FOR 

EVENING 1 

RUNS 


USER BALANCE 


4300.00 

INITIATION TIME! 

H 

K 

to 

OK 

o 

JUL 

30.1977 

TERMINATION TIME: 

io:o4:is 

JUL 

30.1977 

PREVIOUS RUN time: 

09:54M6 

JUL 

30.1977 

•TERMINAL INACTIVE* 





> 

Vote: Separate run at the PEP terminal to produce plot cost $0.43 at 
evening rates. 
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ro-j 

PARfl80LR Y=X#*2 



X AXIS 
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Appendix C 

DERIVATION OF SOURCE CAPACITOR 
CHARGING EQUATIONS 

In this appendix, a detailed derivation is given for the 
equations describing source capacitor charging behavior. This is 
done in three stages: 

(1) circuit description and derivation of differential 
equations describing the circuit; 

(2) solution of the differential equations; 

(3) application of the solution to the initial conditions 
present in the source. 

I. Circuit Description 

Figure C-l-A shows the circuitry for a spark source in which 
the control and discharge circuit elements are shown only in 
general terms, whereas the charging elements are shown explicitly. 
This source allows for variable peak capacitor voltages by use of 
a Variac (autotransformer T*). Computationally it is inconvenient 
to view the circuit with the Variac operating on one side of the 
step up transformer (T 2 ) and the remaining circuit components on 


Figure C-l 

Source Equivalent Circuits 

(A) full charging circuit 

(B) charging circuit restated for simplified 
computation of charging current and voltage 










the other side of this transformer. An equivalent circuit 
which circumvents this inconvenience is shown in Figure C-1-B. 

The Variac is an inductive voltage divider with division 
ratio p ; the total inductance of the Variac as reflected 
through the step-up transformer is L y and its total winding 
resistance is Ry. The step-up transformer has reflected stray 
Inductance L $ and reflected winding resistance R^. A full wave 
rectifier, charging resistor R, and storage capacitor C 
complete the charging circuit. Also of effect bn the charging 
circuit is the discharge path which will be viewed as either 
an open circuit or an ideal capacitor short circuit depending 
on whether a discharge is actually occurring. 

The drive voltage in Fiqure C-l, parts A and B is sinusoidal. 
In part A, line AC voltage is stepped down through the Variac, 
then up through transformer T 2 ; in part B the drive voltage is 
equal to line voltage times the turns ratio of transformer T,, 
and is subsequently stepped down through the Variac equivalent 
resistance/inductance network to obtain the desired voltage 
impinging on the rectifier bridge. Current I t flows in the loop 
[line drive, (l-p)Ry, (l-p)Ly, pty, pRy, line drive] and current 
h flows in loop [line drive, (l-p)Ry, (l-p)ly, L $ , R $ , 
rectifier, C, ft, rectifier, line drive]. 
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The following impedance relationships will be applied: 


V R - 

IR 

(c-n 

V C * 


(C-2) 

V L * 

<■$ 

(C-3) 


and the drive voltage in circuit B wil be given as 

v T * vj cos(9-e 0 ) (c-4) 

where 

p 

v x peak voltage produced by the 1 ine/transformer 

combination. . 

9 * 27Tf t 

f - line frequency 

t 38 time since system was turned on and capacitor charging 
started. 

9q * 2irft 0 

to * time of charging initiation referenced to peak line 
voltage. 

(The choice of cosine voltage dependence is arbitrary—sine 
voltage dependence gives results identical except for phase 
factors, which are shifted 90°.) 
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The differential equation governing the far left loop of 
the circuit is: 


vj cos(e-e 0 ) - (1-P)R V (I 1+ I 2 ) + (i- p )l v ~* -- z) 


+ pL v lt" + pR v ri 


In the central circuit loop, diode impedances are lumped 
with resistor R's resistance and capacitor C‘s capacitance. Thus 
internal diode behavior need not be explicitly accounted for at 
this stage. The central loop's differential equation is: 


vj cos(6-e 0 ) = O-pjRydi+Ia) + (l-p)Ly 


+ L s It * R S X 2 + C J Iz dt + RI z * ' 

The quantities of interest are the capacitor voltage, V c , and I 2 , 
the current charging the capacitor and thus controlling V c . 

Ii may be eliminated from Equations (C-5) and (C-6) by 
substituting Eq. (C-5) into Eq. (C-6) after suitably rearranging 
Eq. (C-5). The arrangements of Eq. (C-5) are: 


p dl, 

V T cos(9-6 0 ) = R v Ii + L v -g^- + (l-p)R v I 2 + (l-p)Ly 


(C-7a) 
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V 1 + L V ITT * v x cos ( 9 - 8 o) - 0 -p)R v I 2 - (1-p)L v ^ {C—7b) 


O-pJ^Clx+Ia) + (l-p)Ly - (I ^ I - 2 - ) = vj cos(9-6 0 ) 

, dI i 

“ P ^V dt + 


(C-7c) 


Inserting (C-7b) Into the right, side of (C-7c) and thence (C-7c) 
into (C-6) gives 


V T cos(9-9 0 ) * v; cos(6-9 0 ) - p< V ; cos(9-e 0 ) - (1-p}R v I 2 

(l-p)Ly -jj-) + Lj -jj- + RjI 2 + RI 2 + ^ J I 2 dt . 


This in turn may be arranged by grouping terms to give 


pv£ cos(8-e 0 ) = (p(l-p)Ry + R + r s )i 2 + 111 2 dt 


+ (p(l-p)Ly + L $ ) . 


This' simplification was possible due to the choice of loops for 
Ii and I 2 ; the neat decoupling of Ij is difficult if Ij and I 2 
are defined in^such a way as to flow through pRy and pLy in 
opposition* as would be legitimate in setting up the problem. 




p(l-p)Ly + L s = L . (C—13} 

Substituting the above into Equation (C-9), the charging 
equation becomes 


V p cos(9-9 0 ) = (C—14) 

This is the same equation which governs an unbranched R-L-C 
series circuit with sinusoidal drive of arbitrary phase and 
initial conditions. Solution of a linear circuit is simpler 
than solution of a branched circuit, and a closed form descriptive 
equation will now be derived. 

i 

II. Solution of Equations for Charging Voltage and Current 

The solution of Equation (C-14) is carried out here in a 
manner similar to Steinmetz's derivations in 1909, as reprinted 
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in Lectures on El ectrical Engineering . Volume 2, by C. P. 
Stefnmetz, edited by P. L. Alger (Dover Publications, Mew York, 
1971). The major difference is in the handling of “damping 
conditions," that is, the relative size of circuit resistance 
compared to capacitive or inductive impedance. Steinmetz 
derived separate equations for circuit behavior in overdamped, 
underdamped, and critically damped conditions. Here two 
functions of complex variables (csinhd and ccosh) are defined 
which permit unified treatment without explicit concern for 
damping conditions. This aids in writing calculational software 
and highlights charging characteristics based on the existence 
€-* components, rather than their relative values. 

Equation (C-14) may be solved for V c , using Equation (C-2), 
so that 

V C * V p COs(9 * 0 » ) - R t0t I 2 " L ^ • (C-15) 

Or, changing all t's to 8's using the definition of 0 from the 
discussion after Equation (C-3), 

V c - V p cos( 0 -e o ) - R tot i 2 . uL (C-16) 

where w * 2*rrf . Note one may also write 

rh dt * if M®. 


(C—17) 
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Equation (C-14) Is an integral equation in I 2 ; a simpler form to 
solve Is a second order differential equation in I 2 , which may be 
obtained by differentiating Equation (C-14) with respect to 9 : 

-v p sin(9-e 0 ) » R tot -h + k + ^ . (C-18) 

Notation may be simplified still farther by defining 

X L * (C-19) 

X C * i ‘ (C-20) 

so that the quantities of interest become 

(C-21) 
(C—22) 

If any solution Is obtained to a second order linear 
differential equation, then the solution is unique. Previous 
solution of differential equations or laboratory observation of 
R-L-C circuits indicates the solution to this problem Is a linear 
combination of a transient, exponentially decaying, term and an 
oscillatory, sinusoidal term (this result could also be obtained 


V c - V p cos(9-9 0 ) - R*„J 2 - x, ttt- 


t0t*2 ' \ 'dF 


„ d V 

\ dir + R tot If + * C h * V sin(0-9 o ) = 0 . 
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using Laplace Transformation, but the algebra at times becomes 
Involved). Thus a formal solution may be written for I 2 : 

I 2 * Ae a ® + Bcos(9-a) (C-23) 


where A, a, B, and a are constants to be determined from the 
Initial and boundary conditions. 

Several of the constants may be evaluated without further 
recourse to physics. Inserting Equation (C-23) Into Equation 
(C—22) and carrying out the indicated differentiations gives: 


x^(Aa 2 e a0 - Bcos(e-cr)) + R^CAae 36 - Bsin(e-a)) 


+ x c (Ae ae + Bcos(e-o)) + V sin(e-e 0 ) » 0 


(C-24) 


The exponential terms and sinusoidal terms are linearly independent, 
yet Equation (C-24) must be satisfied for all values of 6 . Thus 
the sum of the exponential terms and the sum of the sinusoidal 
terms must each independently sum to zero. Dealing first with 
the exponential terms: 

' (Aa 2 x L + AaR t()t + x^e 30 * 0 (C-25) 


a2x L + R tot a + x C > 0 


(C—26) 
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Solving for “a" using the "quadratic formula," 


’ R tot * *^tot * 4x L x C 
- 2 -- 


(C-27) 


M a" may assume two distinct values*yet appears in a term given as 


Ae ae . 


To circumvent this seeming contradition, the exponential term is 
split into two terms* one for the value of a derived from the 
plus sign In Equation (C-27), and one from the minus sign derived 
value: 


Ae a0 - A x e* 10 + A 2 e a20 


~ R tot * ^tot ' 4 x l x C 


2x7 


~ R tot ~ *^tot ~ 4 x L x C 


2x. 


For convenience, define 

i 

s 2 * R 2 - 4x,x r . 


(C—28) 

(C-29) 


(C-30) 


(C-31) 
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Complications arising if R^ t < 4x^x c will be dealt with later. 
Meanwhile, at and a 2 will be written in terms of /I 7 " rather 
than in terms of s . 

Turning to the sinusoidal terms. 


-Bx^ cos(e-o) - R tot B sin(S-o) + x^B cos(O-o) 

+ V p sin(0-9 o ) =* 0 


(C-32) 


To facilitate solution, the sin and cos terms will be expanded to 
eliminate sums of angles in their arguments. Recall 


cos(fi-n) ■ cosfi cosn + sin6 sinn (C-33) 


sin(<5-n) * sinS cosn - cos6 sinn . (C-34) 


Using Equations (C-33) and (C-34) with Equation (C-32) and then 
grouping coefficients of sin0 and cos0. Equation (C-35) is obtained 

(-Bx^ cos a + R tot B sina + x c B cosa - V p sin0 o )cos0 

(C-35) 

+ (-Bx^ sina - cos a + x^B sincr + V p cos0 o )sin0 * 0 . 

Again, Equation (C-35) must be true for all values of 8 , so the 
coefficients of the sin and cos terms must independently equal 
zero. Thus, 
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8(Xq-x^)cosc + R tot; B sina - Vp sin6 0 * 0 (C-36) 

B(x^-x L )sina - R t()t B cosa + v p cos9 0 * 0 . (C-37) 

Equations (C-36) and (C-37) are two equations in two unknowns and 
may be solved directly. In fact the two equations are redundant 
and either may be used to evalute B and a . Rearranging (C-36): 

V 

R to t sina - (x^-x^Jcosa = sin9 a . (C-38) 

The left side of (C-37) may be changed to a form similar to that 
of(C-34) by defining two quantities: 



(C—39) 

x r* r 

arctan(-g=——) . 

uOt 

(C-40) 


Equations (C-39) and (C-40) did not just "appear." The difference 

between (C-34) and (C-38) is that the left side of (C-38) contained 

where (C-34) had a cosine term, and (x L ~x^) where (C-34) had 

a sine term. As the right side of (C-38) has sind a , it would be 
* 

convenient if'the left side of the equation could be combined to 
give s1n(<t>), where is some angle which can then be related to 
9 a . If x^-Xj. is in the role of a sine term, and R^ 
the role of a cosine term, then 

. • . ' ‘ . ' .. 


is in 
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Now all constants except A x and A 2 have been evaluated; 
to recapitulate: 


I 2 - A x exp [ - e] + A 2 exp[—— 0 ] 


♦ cos ( 0 * (W» * 


Now Initial conditions must be supplied. At 9 = 0, 


(C-47) 


h - Io 


V c - V 0 • 


(C—43) 


(C—49) 


Combining Equations (C-47) and (C-48) and recalling e° * 1 and 
cos(-$) = cos«j> 


Iq ■ Aj + A 2 + cos(9 0 +y) • 


(C—SO) 


Before A x and A 2 can be evaluated, the formulas for I 2 must be 
substituted into Equation (C-21) to relate V c and V 0 to I 2 and I ( 
The steps Involved are: 


W 


1: • 
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-"tot*' 57 


V c “ v p cos( 0 - 6 o ) - R tot (Aiexp [ ——e] + A 2 exp [ - ^ - x - ^ 9 ] 


V -R* n * + -R. . + Js? 

+ ^ cos(0- (0 q+y))) - x L (A t ( -exp [ — 1 - °^ - 3]) 




+ &z( -exp[ — — 23 ( - —9]) - sin(0- (9 0 +y))) . 

(C-5T) 


1 !., 
I \: 


Set 8*0 


V 0 * V D cos0g - R tot (Ai + A 2 + £ cos(0 o +y)) 


-R^* + & 




20 

-R._. - Ss? V 


(C—52) 


) + A 2 (—-■) + ^ sin(0 o +y)) 


R x 

v p (cos0 o - cos(0 o +y) - j-j- Sln(0 o +y)) 

R tnt + R tnt - *'£ T 

n / tot_\ A / tot A 


CC—53) 


(x -x ) X 

Vo - V p (cos0 o - cosy cos(0 o +y)‘ - Sin(0 o +Y) sin(0 o +Y)) 
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x r 

v 0 * V D (cos0 o -cosy cos(9 0 +y) - siny sin(9 0 +y) - ^-s 1 n( 0 o +y)) 


R*. i * & 

-) ~ Ai(- M 2-) 


(C-55) 


Vo * V p (cose 0 -cos(e 0 +y-y) - sin(0 o +y)) 
- Ai(-^ 5-) - A,(-S2t-) 


(C—56) 


V X 

Vo * - -§“ Sln(9 0 +y) - A x ( 


R tot + '^ T R tflt “«^ 2 ’ 

-tot_-J . a 2 (-^2-) . (C-57) 


Equations (C-50) and (C-57) are two equations in the two 
unknowns, A x and A 2 . Solving these by substitution: 


A x * I„ ' A 2 - cos(0 o +y) 


(C—58) 


V x r 

- -B-l si 


V_ R, . + /s? 

Sin(a 0 +y} - (I 0 -A 2 -^-cos(a 0 +y))(-is^-) 


- Js 7 


(C-59) 


*r IoR frnl . A,R . V„R. 

- 2 . cinfo.+^A_tOt , ± tOt . P tOt 


2 2z 0 


-J^sin(e 0+ y) --^2£ + 


cos(e 0 +y) 


In*? 2 ’ A, /S 2 ” V_ 


V a 2 s.„, Aj <5* IC '“> 
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imaginary (R 2 - may be negative), and! embark on separate 
expressions originating from Eq. (C-67) far s 2 positive, negative, 
or zero. The present approach Instead wfTT rearrange Eq. (C-67) 
until all occurrences of </s T are appropriately grouped, and then 
two functions of vS 7 will be defined which will succintly account 
for all values of s 2 and allow a single form of the solution to 
the problem without regard to circuit parameter values. 

To arrange the equations so that the fcumetions of v's 2 ' 
naturally arise, several steps are taken, first* exp[-R tot 6/2x L ] 
is factored from all possible terms. SimuTtasteously, terms 
containing l/vS^are segregated from terms fan which lead 
coefficients containing v^Tdo not appear. 


Iz * ^ cos(a-(6 0 +y)) 


+ exp[-^2t_][(—^ (4^- cos(e 0 +r>-*c sin (®o + Y)) 




- ~ (Vo + ° ) cos(0 o +Y) + -yiffiqp[^-^] (C-i 

»s™ L 


68 ) 


R I 

- ( 'P C-t^cos(9 0 +y)-x c sin(0 o +yi) —(V 0 + -) 

z Q & * c Js 1 2 

* ^ cos'(*0 o +y) - ii) expt^-i]]. 


Now like terms of expC^a/Zx^] and expZ~*s^/2x£] are 
combined, then segregated so that terms im 
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expC^^x^ + exp[-/? z 'e/2x L ] are separate from terms In 
exp[/s r £/2x^] - exp[-/s T e/2x^] . 

Vi¬ 
la * T=-cos(e- (6 0 +y)) 


-R V R 

+ exp ^""2x^ cos(6 0 +y) - x c sin(6 0 +y)) 

R to ,lo “PC^-'-PF^ 

- (Vo + -L-L_ 

c Js* 


(C-69) 


+ ~ 2^T cos ( 0 o + y)} 


_t_L_1 



where j * /T . If x Is pure imaginary, cosh x = cos(x/j) , 
and sinh x = (I/j) sin(x/j) . The point is that hyperbolic and 
ordinary trigonometric functions may be regarded as essentially 
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the same provided a suitable method exists for handling /Tf . An 
overdamped or underdamped circuit (s 2 > 0 and s 2 < 0 respectively) 
are identically described if only a convenient method for 
expressing hyperbolic sines and cosines with a single function can 
be found. This is simple if one's computational device handles 


complex numbers routinely-Equation (C-69) can be directly applied. 
If only real numbers are to be used, the following definitions 


allow manipulation of the exponentials, 

independent of 

s 2 : 

ccoshf/s 7 * x) = 

cosh{/|s 2 | • x) , 

s 2 >_ 0 

(C—70) 

x 

cos(/fs 2 | • x) , 

s 2 < 0 

(C-71) 

cs1nhd(*^* x) - 

sinhMs 2 ! • xl 

s 2 > 0 

(C—72) 



sini/fs’-T • x) 

A FT ’ 

s 2 < 0 . 

(C-73) 

The author knows 

of no previous definition of these 

functions 


explicitly. Several sources, listed with comnents at the end of 
this appendix, do however hint at either these functions or at the 
approach given in this appendix for unified solution of the series 
R-l-C circuit. * At s 2 =0, ccosh(^. x) = 1; csinhd(^. x) = x . 
These limits may be derived from any of the Eqs. (C-70)-(C-73) by 
series expanding the exponentials, summing the terms, and then 
taking the limit as s--*-0 . Note that throughout the derivation, 
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& has been used fn place of s so that the absolute value could 
be used with the complex hyperbolic functions. Inserting the 
appropriate factor of 2 In the denominators of the exponential 
terms In Equation (C-69) and applying the definitions of the 
hyperbolic functions, the final form of I 2 is found: 

v D 

l 2 - ^cos(9-(0 o+Y )) 

+ exp C-4^[{ if C R tot cos(9 0+ y)-2x c sin(8 0 +y)) 

(C-74) 

- (2V 0 + I 0 R tot )}«csinhd(/5 7 *2^-.) 

V 

+ cos(0 o n)}-ccosh(^r.4-)] . 

"0 

V C 1s determined by taking Equation (C-51), regrouping terms, 
inserting values for A x and A 2 , and applying the same types of 
rearrangements as used to obtain I 2 . After performing these 
steps, several more manipulations, to be given below, give a 
final closed form for V c . Starting from Equation (C-51): 


Vtot V x. 

“ - E ^— cos(0- (9 0 +y)) + s1n ( e . 

' R tot + ^ ^ 


■ 9 ] 


(So+y)) 


cn 
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Dealing first with the trigonometric terms, the first three In 
Equation (C-51) as restated, one procedes: 


cos(0-9 o ) - p - l| t0 * 

z o 


cos(6- (0 o +y)) + sin(9- (6 0 +y)). 


• V p [cos6cose 0 + sin 0 sine o - cosycos(9 - ( 9 0 +y)) 


* Vp[cos9cos9 a + sin9sin9 0 - cosy{cos9cos(9 0 +y) + sin9sin(e 0 +Y)) 

*r 

* Stn(e- (0 o +y)) + sinY(sin9cos(9 0 +Y) - cos9sin(e 0 +Y))] 

(C—76) 
V x 

* “f~ sin(9- (9 0 +Y)) + V p [cos9cos9 0 + sin9sin9 0 

- cosy(cos9(cos9 0 cosy- sin0 o sinY) + sin9(sin9 o cosY+cos0osinY)) 

+ sinY(sin0(cos9 fl cosY- sin9 0 sinY) - cos9(sin9 0 cosY+cose 0 sinY)B 

(C-77) 

Vc 

* sin(9- (9o+Y)) + V p [cos9cos0 o +sin0s1n9 o -cos 2 YCOsecos0 o 
+ cosYSinYCOs9sin9 0 - cos 2 YSin0sin9 o - cosYSinYSin9cos9g 

(C-78) 

+ sinYCOSYSln9cos9 0 - sin 2 YSin0sin9 o - sinYCOSYCosesine, 

- sin 2 YCOs9cos9 0 ] 
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First, the terms associated with the exponentials are 

propagated through the full coefficients of the exponentials: 


V x r 

-Lisinle 


(flo+ir)) 

V R 2 - S 2 

/ P / tot 

* 77 - v-5- 1 

z 0 /& l 


-COS(9 0 +y) - X c (R tot +^7) s1n (0 o+Y )) 

2x. 


V R2 , s 2 
(Vi- cos 
0^ 2 


, e ])/2 

L (C—83) 

i(0O + Y) - x c( R tOt'^ S1 ’ rt ( 0 O + Y)) 


Sof + ? 


jL to 


flext, factor out exp[-R t<Jt 9/2x L ] and insert the definition of 
s 2 (here is another reason to use & in place of s throughout) 




V X- 

-E-£ since- 

z 0 


(8 0 +y)) - exp[^g^] 


V 

* {[—(2x l x c cos(0 o +Y)-x c (R tot +» / s 2 ‘)sin(eo+Y) 

Zq y% 

■ 1 ° ] (exp[; |Il ] | /2 (C-M) 

& iX l 

V 

- (2x l x c cos(0 o n) - x c (R tot -/s?)sin(0 o n)) 

✓s 7 ^ X L 

As performed previously in finding I 2 , group the exponentials 
in such a way as to form hyperbolic trigonometric functions: 


V c » -f^sin(0-(0 o + Y ))-expC-^-] 


x {Vz(exp[-i^^] + exp[^^-2.])(-V 0 - Vc s m(0 o +Y)) 


+ V 2 (exp[4^] - exp [ - ^J -] ) 


(C—S5) 


* ( r^ (2X L X C -( 0 o^)- c R tot sin(e 0 +Y)) 

VjR^ 2 x.x r I 0 
vS 7 Js 7 
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A more convenient sign convention replaces the minus sign 
preceding the exponential with a plus sign and propagates the 
change through the equation. Further, /s? may be factored from 
the second group of terms giving the csinhd function: 

V X D 

V C " -fjp sin(e- (0 o +y)) + exp[— 

V x 

* {ccosh(^ 2 |-).(v 0 +-|-C sin(e 0 +Y)) 

v (C-86) 

+ csinhd (x c R tQt sin{0 o +Y)- 2x L x c cos{0 o +y)) 

+ (Vtot^Vc'o))! • 

In Equations (C-17) and (C-20) it was shown that V c is 
proportional to x c . This is shown explicitly in the final form 
to be used for calculating V £ : 

V 

V c " x C^ s 1 n ( 9 *(VY)) 

+ expC ~S[" ] * [ ccosh(-^ T ^-)-(^- + ^ Sin(0 o+Y )) 

y (C—87) 

+ csinhd(^JL).(Jl (R tot sin(0 o+Y )-2x L COS(0 O+Y )) 

V 0 R hn . 

+ (-^2t + 2 x l I 0 ))]} . 

c 


Equations (C-74) and (C-87) are the equations sought for 
describing capacitor charging. While other forms of the solution 
exist and may in certain computational situations be of utility, 
further discussion and calculation will employ the forms shown. 

III. Application of Equations to Spark Source Operation 

Use of the above equations to predict or understand spark 
source operation is dependent on two implementation steps: 

(1) design of computational routines and (2) selection of 
experimental parameters. 

The equations derived above present evaluation problems 
mainly for large and R t(Jt * & . In this situation, 
ccoshfv^O/aXjJ) is evaluated as cosh^s 2 ^/^)) and 
csinhd(v’$T(e/2x L )) is evaluated as sinh(^ r (e/2x L ))/*'s r . For 
large x (x is any argument for the functions, not just those which 
apply to this problem), sinh(x) * cosh(x) . if & e/2x L > 10 , 
exp[v^ 9/2x L ] * cosh(/s z e/2x L ) within five parts in 10*; as the 
Univac 1110 computer employed maintains only eight significant 
figures, this difference is insignificant. Thus round off errors 
due to taking large differences between small numbers and outright 
overflows when exp[^ 9/2x L ] > 10« can be avoided by combining 
the hyperbolic functions with the lead exponential term. This is 
done only for (^e/2x L ) > 10, s*>0 . Equations (C-74) and 
(C-87) then become: 
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V g 

J 2 .* ^ cos(9- (6 0 +y)) + (exp[—g ^ tot 9])/2 

T V 

* Vi? ^ (Rtot COs(0 ° +Y) - 2x C sin ( 9 o+Y)) - (2V 0 + I 0 R t<Jt )) 

V 

♦ Io-^cos(9 0 +y)} (C-88) 

V Vs^-R 

V c ■ X C tl*sin(0-(0 o+Y )) + (expt—e])/2 

V V v 

X + S1n ( 0 o + Y) + “ip fij ("tot sin(9 0 +y) - 2x L cos(9 0 +y)) 

¥ ° R tot 

+ “1^ +2 \Io)]}. (C-89) 


As Equations (C-88) and (C-89) apply mainly when Ss* * R , 

tot 

the limited precision of the computer results in round off error 
if & is directly evaluated. If ((* / S T -R tot )/R tot | < MO^, 
^ can be series expanded about x L *x c = 0 to give 




to five parts in 10 u or better. A simpler formula for 
computation is: 

4x, x„ x, x- 


^ ( 0-5 * £?■> • 

K tot 2R tot 


(C-90) 


(C-91) 
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At this point the mechanics of algorithm implementation 
becomes intertwined with two considerations: (a) efficient 
software structure and coding and (b) setting of parameters to 
match source operation. While these are not separable, (a) will 
be dealt with first. 

Several constants are entirely Independent of break pattern 
and depend only on circuit parameters. These are the constants 
derived from R^. L, C, V p , and does depend on the 

bias condition of the diode, but, to a first approximation, need 
be set only at the start of charging in either a forward biased 
or reverse biased mode. The time independent constants are x L , 

X C* s ’ ^tot ’ z ° ’ an< * y*o» and may be stored in 

memory before any break information is processed. A feature not 
Included in present software but which may be useful is to calculate 
all these constants for both forward-biased diode and reverse-biased 
diode conditions, and store them sequentially rather than 
alternately as they are applied. 

Charging "starts" any time a circuit parameter changes. Such 
times are: (a) start of a half-cycle; (b) instant of discharge; 

(c) completion of discharge; (d) change in bias condition of the 
diode. In each case R^, C, 8 0 , I a , and V 0 must be set to 
match conditions in the source, and any indefinite terms in the 
equations assigned appropriate values. 9 0 is always set with 
reference to the peak in the transformer voltage such that 9 0 at 
the beginning of a half-cycle is -ir/2 , at the end of the 
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half-cycle Is ir/2 , and assumes intermediate values in between. 
If to * 0 is set at peak transformer voltage, t 0 = 4166.7 us 
at the end of the half-cycle, and so on 

e« * 2irft„ (C-92) 

or if tj is set so t' 0 = 0 at the beginning of the half-cycle 
and = 8333.3 us at the end of the half-cycle then 

®0 * 2irf(to - 4166.7*10 _s sec.) . (C-93) 

Vo and Iq are taken as the voltage and current on or 
through the capacitor at the end of the preceding charging 
interval, except as noted below. Thus all parameters in the 
equations are given except e . 9 = 2mft , where t is the 
elapsed time since the last time e 0 was set. So once s 0 is 
given, varying 9 follows the course of the charging. 

When I is < 0 , it is assumed the diodes are reverse-biased. 
When I > 0 , it is assumed they are forward-biased. Simply by 
checking the present value of I and what the bias condition is, 
changes in diode conduction state can be identified. 

The full-wave rectified nature of the drive waveform is 
accounted for by resetting 9 0 to -ir/2 at the start of each 
half-cycle, rather than allowing it to exceed ir/2 as it would 
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in a nonrectified circuit. A counter prevents 8 0 +8 from 
exceeding ir/2 as well. 

The only situation left to be explained is the charging 
circuit's behavior during a discharge. The physical model was 
described in the body of this thesis, in which it was pointed 
out that the discharge duration t d for the purposes of modeling 
Is one-half the on-time of the thyratron/diode network. During 
this discharge time 

x c - C « 0 . (C-94) 

This implies, in the above equations, that 

V 0 - v c = ° 

and 

Vo 

— - 2m f C V 0 » 0 . 

X C 

Thus during the period of discharge, the original Equations (C-74) 
and (C—87) hold, using (C-94)-(C-96) for setting parameters. 

Given the source parameters and appropriate initial 
conditions, the only Independent variable which changes during 
charging is 8. Inspection of Equations (C-74) and (C-87) reveals 
three types of terms containing 8 : (a) a sinusoidal term, 

(b) expf-R^j^S/Zx^], and (c) the complex hyperbolic functions. 


(C—95) 
(C—96) 
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For computational convenience, various groups of constants may be 
evaluated at the beginning of a calculational sequence. One 
plausible arrangement for doing this will be discussed in 
Appendix 0 concerning the spark source modeling program. 

IV. Comments on the Complex Hyperbolic Functions 

Various aspects of the definition, use, and properties of 
the hyperbolic functions may be found as follows: 

(1) G. B. Thomas, Calculus and Analytic Geometry . 4th ed., 
Addison-Wesley Pub. Co. (Reading, Mass., 1969), or 
other freshman calculus text. Gives properties of 
sin, cos, sinh, and cosh with real arguments. 

(2) Jon M. Smith, Scientific Analysis on the Pocket 
Calculator. John Wiley and Sons (New York, 1975). 

An appendix shows the relationship of sin and sinh, 
cos and cosh, with complex arguments for each 
function. This shows how one can fluidly use either 
sin or sinh, cos or cosh for calculation, provided one 
accepts j (= /T) as an ordinary number with few 
unique properties. While this lack of unusual 
properties is not rigorously true, it is very useful! 

(3) E. J. Scott, Transform Calculus with an Introduction 
to Comple x Variables , Harper and Row (New York, 1955). 

For the case Io = Vq * 0 , Scott writes charging 
equations which use the classical concepts of 
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overdamped, underdamped, and critically damped. 

However, he only derives the underdamped case 
explicitly; the others he derives heuristically, 
inserting sinh and cosh in place of sin and cos 
functions as appropriate. Inspection of his results 
shows that, had he inserted one extra set of parentheses, 
he would have defined csinhd; all the terms are there, 
but not explicitly grouped. 



. Appendix 0 


PROGRAM FOR MODELING SPARK SOURCE 
CAPACITOR CHARGING 

I. Introduction 

This appendix describes both the theory and operation of a 
program (PITS—Programmable Independently Timed Spark source) for 
modeling the behavior Of a capacitive discharge spark source 
trfiose main storage capacitor is charged by a rectified series 
R-L-C circuit. The justification for using such a model in many 
cannon sources was given in Appendix C.I. The program is coded in 
BASIC and has many features in common with other software discussed 
in this thesis. Specifically, a pinwheel structure similar to that 
used in the Abel Inversion software discussed in Appendix A is 
used, and plots produced with Pepsub (Appendix B) or Miniplot are 
available. Equations derived in Appendix C are coded Into the 
program so that a wide variety of source charging characteristics 
and operating configurations may be modeled. Processes available 
include: time or voltage thresholding of discharge triggering, 
rectifier bridge diode coirmutation, parameter passing between 
half-cycles, parameter passing from charging based on one set of 




782 


initial conditions to that based on another set, and construction 
of a variety of source hardware properties and pattern melds which 
way be relevant to laboratory source operation. In short, all 
charging properties discussed in Chapter III may be modeled 
directly except for the "average current effect-, and a printout 
of average current is given so that this phenomenon may be 
externally accounted for. Patterned intervals may be formed by 
welding sequential half-cycles. 

PITS consists of four major sections: initialization, 
computation, output, and termination. When the program is first 
called, initialization is automatically the first routine 
accessed. Once initialization is completed, any routine may be 
accessed in any order. Up to four half-cycles of break patterns 
m*y be stored in memory at one time. Any number of half-cycles 
mAy be computed in sequence to make a control interval. This is 
done by outputting data relevant to each group of four half-cycles, 
and then continuing computations. Output may be any combination of 
printing and plotting desired, and an option is available to 
obtain hard copy printed output from runs made at a PEP terminal 
or other soft copy device. 

The rest of this documentation is arranged as follows: First, 
the theory of operation of the computation section of the program 
is explained. This consists largely of taking theory developed in 
Chapter 111 and Appendix C and explaining the specific coding 
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implementation chosen for program PITS. Next, suggestions for 
effective modeling are given, so that input parameters to the 
program may be more easily chosen. A program listing, sample run, 
and variable list complete the documentation. Syntactical details 
for program use are given in both the "effective use" and "sample 
run" sections of the documentation. 

II. Theory of Operation 

Calculation routines are arranged in a combination of 
functions and subroutines so that the charging equations are 
efficiently evaluated and are tools of, rather than the focus of, 
the program. In the program listing, pages PITS-2, -3, and -4 
can be seen to be a group of functions which lead to the 
evaluation of capacitor voltage and charging current. Functions 
are defined so as to evaluate the equations in stages. 

The first function, FNP, evaluates charging parameters which 
are dependent only on hardware and are independent of time. These 
include Impedances, ratios of peak transformer voltage to 
impedance, and the hardware phase angle y . This function is 
evaluated any time R, L, or C change, which means any time diode 
bias changes or a discharge occurs (C becomes zero). Once these 
constants are evaluated, FNP is not called again until one of the 
relevant parameters changes i.e. when new initial conditions occur. 
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The next function is FNT, which calculates constants which 
are explicitly functions of time variable Initial conditions. 
These include 9o» ®o + Y> and all terms in the charging equations 
which involve the initial conditions I 0 and V 0 . At this point it 
becomes convenient to evaluate all parts of the charging 
equations ((C.74) and (C.87)) which do not have explicit time 
dependence, that is, dependence on 9 . This was mentioned 
previously at the end of Appendix C.III. The coefficient of the 
cslnhd term in the equation for capacitor voltage (equation (C.87)) 
is evaluated in line 107 of the program, BASIC statement 580. The 
ccosh coefficient for the voltage charging equation is evaluated 
in line 108, statement 585. Using the combined variables called 
T3 and T4 in the program, the voltage charging equation becomes: 

V c * x c<fJ s1n ( 0 - ( 00 +Y)) 

-Re a (M> 

- expGstp.) *(T3cs1nhd(s 2 ,^!-) - T4ccosh(s 2 ,sf-))) . 

L a L 

(Note this result is used later in the program, but is written 
here to show what T3 and T4 represent.) The variable list at the 
end of this appendix will clarify how the various symbols in 
lines 107 and 108 can give the above result. Equation (D.l) is 
identical to equation (C.87) except that the coefficients of the 
complex hyperbolic functions have been compressed to a single 
symbol. 






FMT also compresses the coefficients of the ccosh and csinhd 
functions used in calculating charging current. These 
coefficients, called T6 and T5 respectively, are evaluated in 
listing lines 110, 112, and 113 (There are two possible formulas 
for T5 because capacitance may equal zero, and capacitance appears 
in the denominator of one of the formulas. By using an expression 
where C=»X C » 0 for the case where there is no capacitor in the 
circuit, division by zero is prevented, but a separate formula is 
necessary.). An equation similar in form to equation (D.l) and 
identical in meaning to equation (C.74) can then be written: 

V 

1 " zf c °s(s-Ce 0 + Y )) 

-Re a (0.2) 

- exp(2xj-)*(T5csinhd(s2,^-) + T6ccosh(s2,2f-)) . 

The hyperbolic sine and cosine functions are evaluated in 
functions FNS and FNC from line 115 to 144. The argument A fed to 
each function corresponds to 8/2X L in the above equations. S2 is 

sm. 

Equation (D.2) is implemented in function FNI. Given the 
results of FNP and FNT, all that the calculation requires is 
evaluation of one cosine function, an exponential, and the two 
complex hyperbolic functions, followed by four multiplications 
and two additions. Similarly equation (D.l) is evaluated in 
function FNE. FNI gives charging current in milliamps, and FNE 
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gives capacitor voltage in volts. For the .cases discussed in 
Appendix C-III where resistance is large and times are long so 
that, equations (C.88) and (C.89) are applicable for current and 
voltage computation respectively, separate formulas for evaluating 
functions FNI and FNE are used (lines 161 and 179). 

Thus it can be seen that all voltage and current evaluations 
can be performed between lines 54 and 182. The rest of the program 
consists of initialization, output and termination routines, and 
programing designed to feed times and Initial conditions to the 
charging equations to be evaluated. In fact the rest of the 
program is written without specific reference to the details of 
the charging equations. Whenever a voltage or current is needed, 
a function call is executed (see for example lines 1562 and 1563). 
There are sufficiently many other concepts in the rest of the 
program that henceforth it is easiest if.the equations are assumed 
to be black boxes which are fed hardware parameters and initial 
conditions, and return current and voltage. Attempting to look 
deeper into the equations while using them as evaluative tools in 
connection with source operation leads quickly to confusion, and 
an inability to keep the changing source conditions separate from 
the evaluation of current and voltage based on those conditions. 

The next level of program operation is a series of functions 
and subroutines used to service various parts of the charging 
calculation routines. The first of these is a subroutine from 
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line 183 to line 200 which switches parameters and accesses FNP 
and FNT each time the bias condition of the rectifier bridge 
changes. To set up forward biased conditions, the routine is 
entered at statement 850, line number 188. To obtain reverse 
biased setup, entry is at statement 875, line 196. Thus a calling 
routine need only determine to which condition the diode is to be 
switched, and the correct entry point accessed. 

Next is a linear interpolation routine, FNl. This function 
determines the abscissa of the point at which two curves intersect. 
Suppose there are two functions of x : y(x) and z(x) . Define 

y(*i)*yi y(x 2 ) = y 2 z(x t ) »z x z(x 2 ) * z 2 . ( 0 . 3 ) 

If it can be ascertained that y(x) intercepts z(x) at an 
abscissa somewhere between x x and x 2 (call this abscissa x 0 ), 
then the value of x 0 should be computable by interpolation. 
Approximating z(x) and y(x) as straight lines, Figure D.l 
shows the geometry which allows one to compute x 0 (by rearranging 
the equation given in the figure): 

M 2 i-yi) + X|(y 2 -z 2 ) 

• Xo " " yz-zz + ^-y! (°- 4 ) 

Replacing the symbol x„ with the symbol FNL gives line 213, 
statement 960 in the program. By feeding the values of two points 
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/ 


l 


Figure D.l 

Interpolation Routine—geonetry used to derive 
interpolation formula. 


Y(x) and Z(x) are approximated as straight lines. 
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which bracket the intercept point of the curves to the 
interpolation routine, an approximation to the intercept point is 
obtained. The other possible evaluation for FNl (statement 970, 
line 215) is applicable when y(x) and z(x) are in fact the 
same function. If y(x)*z(x) , then the denominator on the right 
side of equation (D.4) is 0, which leaves x 0 undefined. In this 
situation xo is assumed to lie halfway between xi and x 2 or 

*1 ♦ *2 

*0 * — 2 — * (0.5) 

FNL is applied to determination of diode commutation times and 
times of voltage threshold crossing. Charging voltages or 
charging currents are fed to the function for times just before 
and just after commutation or threshold crossing, and an 
Interpolated time for the event in question returned. 

Other subroutines and functions may most easily be understood 
after the flow of the computation routine is outlined. This is 
shown in Figure D.2. The heavily shaded blocks constitute the 
main flow of calculation of charging. Assuming all setup has been 
completed, the time at which voltage and current are to be 
computed is set and the values are computed. Three items are 
then checked. First, it is determined if the threshold condition 
has been passed for firing a discharge. That is, for time 
thresholding, is the time used for the voltage and current 
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computation later than the time at which a given discharge in a 
train Is to be fired? For voltage thresholding, did the charging 
curve pass through the thresholding manifold since the previously 
computed point? If so, control branches to a routine which 
computes co-spark charging. Otherwise, the second item is 
checked: Did the charging current change sign since the previous 
charging computation? If so, diode conmutation has occurred. 
Control then branches to a routine to establish to 0.1 us the 
time of diode commutation and to reset source conditions to 
reflect diode conmutation. Otherwise, the third item is checked: 
Has the end of the half-cycle occurred? A data point is always 
calculated at 8333.3 us elapsed time at the very end of the 
half-cycle. This corresponds to time ■ 0 for the ensuing half-cycle. 
If the end of the half-cycle has not occurred, time is incremented 
50 us and the calculation cycle repeats. Thus, calculation is a 
continuous cycle of: set time, compute voltage and current, check 
threshold, check diode bias, check end of half-cycle, and repeat, 
except when one of the three check points Indicates alternative 
action is called for. All of the “alternative actions" amount to 
changing the value ascribed to some source parameter (resistance 
for diode commutation, capacitance for discharge occurrence) and 
the electrical and temporal Initial conditions (I a , V 0 , 9 0 ). 

Returning to the program listing, the places where each 
operation occurs will be described. The calculation routine is 
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entered at line 520, BASIC statement 4000. The thresholding mode 
Is chosen, the half-cycle to be affected by computation is chosen 
(statement 4060, line 531), and initialization occurs (statement 
4065, line 532). There are several ways in which initial 
conditions may be chosen, but these will be discussed at the end 
of this section in the context of melding patterns and passing 
parameters between half-cycles. Once initialization is completed, 
control branches to time (line 534) or voltage (line 536) 
thresholded charging routines. 

The time thresholding routine appears on page PITS—14. The 
source of times is chosen as originating from a storage buffer 
associated with the present half-cycle ("this", the half-cycle 
selected in the routine called at line 531 above) or the 
previous half-cycle ("previous") i.e. the half-cycle numbered one 
lower than that chosen for computation. Otherwise the routine 
consists of setting or Incrementing computed time (line 646, 
statement 6005), checking for time threshold passage (line 647), 
calling the normal voltage computation routine (648) or the 
co-spark computation routine (652), and continuing until the end 
of the half-cycle (line 650, statement 6020). Protection 
statements are provided (statements 6018 and 6025) to prevent 
overfilling Internal storage. 

The times to be used for thresholding may be inserted.via the 
initialization routine or by previous computation via voltage 
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thresholding. If no initialization or previous computation has 
occurred, a zero breaks charging pattern will be computed. 

. Before the voltage thresholding routine can be explained, one 
more set of functions must be discussed. These appear on pages 
PITS-12 and -13. These functions form the manifolds describing 
various possible break patterns. FNR (lines 543 through 565) 
accesses information from the other functions, which are 
individual, choosable manifolds. Thus once the choice of manifold 
is made (via variable D2), all computations as to manifold voltage 
at some time T may be accessed from the rest of the program by a 
call to FNR. 

Other functions and the manifolds they represent are as 
follows: 

Function 
FNU 

FNV 

FNU 

FNX 

FNY 


__ Manifold __ 

Individual discharge voltages as typed in during 
initialization form manifold. 

Equivalent pattern manifold. Voltage chosen when 
manifold choice made. 

Random pattern manifold. Break voltage varies 
randomly between 0 volts and some maximum value chosen 
when the manifold is chosen. 

Sine pattern manifold. Both the amplitude and phase 
of the pattern with respect to line voltage are set 
when the pattern is chosen. 

Ramp pattern manifold. Ramp voltage at the beginning 
and end of the half-cycle are specified at the time of 
manifold choice. 
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Function 

FNZ 



This was originally intended for frequent user 
reprogrammng into a variety of manifolds. It is 
presently set up as a trapezoidal pattern. The 
plateau voltage and times at which the plateau starts 
and stops are user specified. A user may define some 
other function by stating FNZ= (user chosen function? 
in the appropriate line numbers, and may use variables 
03 , 04, and 05 to pass information to the function 
More details are given on function setup below. 


The operation of the voltage thresholding routine may now be 
described. The first section of the routine is used to choose a 
manifold and supply the appropriate input parameters to specify 
that manifold. This occurs from line 1664 to line 1726, 
statements 16000 through 16310. If a user redefines function FNZ, 
the input parameters to that manifold may be supplied via an input 
routine running from statement number 16220 to number 16305 
inclusive. This routine should accept all user input which is 
necessary to define the shape of the manifold, so that when the 
remaining solftware calls FNR, and thus indirectly FNZ, the 
manifold value at that time can be immediately accessed without 
active user input. Another useful point is that the parameter fed 
to FNZ, called T, is the time within a half-cycle referenced to 
the zero crossing. If the user*s definition of FNZ depends only 
on input parameters and on time within the half-cycle, then the 
setup routine and other coding already present will feed FNZ 
correctly and well-defined voltages can be computed. 
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After input is accepted, the voltage thresholding routine 
defines how the first break of the half-cycle is to occur, and 
whether the calculations in general will account for limitations 
In hardware spark sources and their driving electronics. This 

input is obtained in statements 16315 through 16430 (lines 1727 
through 1750). 

The conformity control determines if hardware limitations will 
be accounted for, i.e, whether restrictions in hardware 
performance will be allowed to override the idealized procedure 
shown in the program flowchart. Restrictions were programed to 
be those of the ADS 1800A computer/thyratron source combination 
discussed in Chapter III. Restricted operations are: (1) no 
firing allowed within 140 us of the beginning or end of a 
half-cycle, and (2) no two breaks closer together than 140 us. 

The next two controls act to affect when the first discharge 
in the half-cycle is computed to occur. The first of these, the 
melding control, can be used to force a discharge to occur early 
In a half-cycle, whether or not the voltage at that time 
corresponds. If the initial voltage In a half-cycle is above the 
manifold voltage. It is possible that the voltage threshold will 
never be crossed. This may result in the computation of a zero 
break pattern. Should this occur, the pattern may be recomputed, 
using the "first break" (see below) or melding controls to fire a 
discharge early in the half-cycle to bring the capacitor voltage 



below the manifold envelope. Note how the melding control can 
thus be used to link together otherwise incompatible manifolds in 
adjacent half-cycles, by "clearing out" high voltages "left over" 
on the capacitor at the beginning of the half-cycle. 

The users choices, then, are to "fire a discharge at or near 
t«0" or to "fire discharge based only on the manifold." For 
brevity, call the first situation "melding control on" and the 
second situation "melding control off". In either case, the time 
at which the first break of the half-cycle occurs may be adjusted 
using the "first break" control. 

The first break control allows the user to time threshold the 
initial break within a half-cycle. If the first break time Is 
entered as "0", the control is "unset". If a positive time is 
entered (in microseconds, 0 < time <8333) then that is the time 
at which the first break occurs. When the first break control is 
set, the first break in the half-cycle is computed via time 
thresholding while all the rest are computed via voltage 
thresholding. 

There are four combinations of setting of the melding and 
first break controls: 

fielding off First break unset Manifold determines all break 

times. Pure voltage 
thresholding. 

Melding off First break set First break time thresholded; 

otherwise voltage thresholded. 
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Melding on First break unset First break occurs at t*0 (or 

?? hardware 

limited). Otherwise voltage 
thresholded. 

Melding on First break set Same behavior as melding off/ 

first break set. 

From this it can be seen that the melding control is actually a 
means of providing a first break control without the user entering 
an explicit time. It is also apparent that there is a great deal 
of redundancy between the first break and melding controls. This 
did not become apparent until some time after the program was 
coded. If there is confusion as to the use of the two controls, 
it may be easiest to simply set the melding control "off" and 
either enter first break = 0 when no time thresholded break is 
desired or first break * some positive number when an early time 
threshold or melding break is desired. 

After the control flags are set, the voltage thresholding 
routine gets confirmation from the user that the setup is correct 
lines (1752-1755). if the first break is to be time thresholded, 
computation occurs accordingly. Once the initial conditions for 
the half-cycle have been set ahd any time thresholded break has 
been computed, normal voltage thresholded calculation begins at 
line 1775, statement 16530. 

The remainder of the voltage thresholding routine increments 
the time within the half-cycle (line 1781), looks to see if the 
voltage threshold is past (1784-1788), and otherwise duplicates 
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the functioning of the time thresholded routine as outlined 
previously. When threshold crossing is detected, however, an 
Iteration sequence occurs (lines 1793-1812) which terminates when 
charging voltage equals threshold voltage within 0.2 V. The time 
corresponding to this voltage Is stored (line 1827, statement 
16730) as the break time, after accounting for hardware 
limitations, and for the fact that the second (or n-th) break of a 
half-cycle must occur after the first (or(n-l)-th) break. 

The remainder of the voltage thresholding routine is involved 
with detecting diode commutation and preventing conflicts among 
breaks, diode commutation, and hardware limitations. 

Routines have been mentioned but not described for commuting 
the diode, calculating co-spark charging, and terminating the 
half-cycle. These are written as part of the time thresholding 
routine in the 14000-15000 block of BASIC statements, and are 
referenced by means of subroutine calls from the voltage 
thresholding routine. Once the time of diode conmutation has been 
established, either by the voltage or time thresholding routines, 
the setting of new initial conditions and resetting of resistance 
parameters is performed by a routine starting at line 1626 
(statement 14675). 

When a break is found, the time of that break is fed to a 
routine starting at line 1583 (statement 14465) which (a) sets 
capacitance to 0, (b) resets diode bias condition to "forward" if 




ft fs not forward biased already, (c) computes charging current at 
the beginning and end of the break, (d) resets capacitance to its 
normal value, and (e) sets up Initial conditions for the next 
normal inter-spark charging interval. The time of the end of the 
break is determined from the discharge duration typed in during 
initialization. 

At the end of the half-cycle, lines 1616 through 1625 are 
executed to leave initial conditions for the next half-cycle, 
average current computation, and diode bias condition in 
appropriate order. Note that the diode is always left in forward 
biased condition even when this is not what was used for either 
the last computation in the given half-cycle nor would it be used 
with this bias for the first computation in the ensuring half-cycle. 
This is so that the bias condition is always known when a 
calculation is started and can be compared to a standard condition. 

As can be seen from the above discussion, the linking of 
charging, discharging, diode bias conditions, and half-cycles is 
largely a matter of passing initial conditions from one set of 
charging computations to another. Storage registers are provided 
(see variable list) for the charging current and voltage at both 
the start and the end of a given half-cycle. At intermediate 
points in the half-cycle, parameters are passed through the arrays 
containing the full charging curve. For the situations where 
parameters are passed, values are as given in Table D.l. In 
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large measure, this passing can be seen as (a) resetting 9 to 0, 
(b) picking up the values of I and V c present at the instant of 
passing and relabeling them as the new initial current I 0 and 
voltage V 0 , (c) setting 9 0 correctly and (d) changing R and C to 
fit with the charging condition of the capacitor and bias condition 
of the diodes. At the instant of parameter passing, 9 is reset to 
0, but e+9 0 remains constant. Thus, for example, the charging 
conditions at the end of a discharge are computed with 9»2irftb 
and 8 0 --(ir/2) + 2irft d . The current and voltage so computed are 
fed forward as initial conditions, e is reset to zero, indicating 
that no time has elapsed since initial conditions were reset. e 0 
must also be reset to indicate elapsed time, since the zero 


crossing, at which initial conditions are being set. Initial 
conditions for the new charging interval were computed at the last 
point of the old charging interval, when 9 0 was a previous value, 

6 was positive and a+e„ was sane quantity 9 T . Because initial 
conditions are passed at a single instant, 8 t does not change in 
passing the conditions, e goes from some positive number to 0, so 


(e 0 ) 


new 

conditions 


® at last point of 
conditions previous charging 
Interval 


(D.6) 


At this juncture, the central points of the charging model 
are most clearly evident: (1) The R-L-C model of the circuit is 
assumed to hold regardless of specific component values or times. 
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(2) Differences in diode bias condition are accounted for by 
adjusting the value of resistance; discharge of the capacitor is 
accounted for by setting both capacitance and capacitive impedance 
to zero. (3) At the beginning of some charging interval, the 
values of R, c, 0 O , I, and V c are determined. Tine is then 
incremented and time, voltage, and current values computed until 
some source parameter (R or C) changes. The old values of current 
and voltage are passed forward as new initial conditions, the 
parameters are reset, and 9 0 is adjusted so it corresponds to the 
time of the parameter switch. The sequence continues until the 
end of the half-cycle, at which point, due to the full wave 
rectified nature of the line voltage, e 3 is reset to -ir/2 and the 
whole process may be repeated. Aside from these three points, all 
of program PITS is either input/output routines, setup routines 
to feed the core charging algorithm, or details of executing the 
algorithm and determining when new initial conditions must be set. 

III. Effective Program Use 

Much of the syntactical use of the program is self-explanatory 
while the program is running. Many questions are worded: "There 
are two possible answers to this question: 'A* and 'B\ Input 
A or B?" If a legitimate response is not given, the question is 
reasked. In some instances, default answers are available which 
will allow the program to function without the user necessarily 
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understanding or controlling actively the effect of a particular 
option. Default options, when available, may be activated with 
the entry "-2". In some instances, the numeral 0 may be used as 
well, but this may prove confusing since 0 is also a nondefault 
answer possibility to some questions. 

Herewith are some suggestions on how to use PITS for 
efficient calculation of break patterns. These should be regarded 
as starting points, as they reflect the style of usage of the 
author, rather than as absolute rules for running the program. 

A. Initialization 

On program startup, two questions are asked prior to the 
automatic calling of the initialization routine. These are: 

(a) “0o you want hard copy?" and (b) "What is power supply 
frequency-60 or 0.1 Hz?" If the first question is answered 
affirmatively, a copy of all print routine output will be made 
on a computing center line printer, thus preserving a hard record 
of a run at a "soft copy" device such as a PEP terminal. This is 
an expensive option, however. Default is to obtain hard copy. 

An alternative method for obtaining hard copy which includes ALL 
interaction, not just print routine output, will be discussed at 
the end of section III.c. The second question provides a method 
for simulating DC power supply operation of the spark source. 

At 0.1 Hz drive frequency, if the drive voltage is assumed to be 
at its peak when a "half-cycle" (actually i„ this Instance, merely 
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a calculation interval of 8333.3 us) begins, the drive voltage 
will have remained constant within 0.0022 at the end of the 
"half-cycle". No default exists. Sixty Hz charging has been 
tested and use more extensively than 0.1 Hz charging. 

Initialization usage is summarized on listing page PITS-6. 
The reader is requested to read the boxed in documentation block' 
on that page before continuing. 

The options access various portions of the total 
initialization routine. Option 1 affects hardware R, l, and C 
values, option 2 affects peak transformer voltage, discharge 
duration, initial current, initial voltage, and initial time. 

Note that the only way to begin a charging computation under user 
control at a time other than the start of a half-cycle is by 
entering a time other than zero as the initial time in the 
initialization routine. In general, the entered value of initial 
voltage need not be zero. Peak transformer voltage or a voltage 
slightly higher than the break voltage of a desired equivalent 
break pattern may be appropriate. The closer the typed in initial 
voltage Is to the voltage which will actually be on the capacitor 
between half-cycles in the midst of a patterned interval, the less 
time it will take to compute a precise break pattern. 

Except in cases of high inductance, initial current in a 
half-cycle is small and may be given as 0 milliamps. 







807 


Option 4 sets the maximum number of breaks computable per 
half-cycle and allows input of break times and voltages. The user 
may choose any maximum number of breaks up to 25 breaks, but may 
not choose zero breaks. Depending on the nature of the pattern 
desired, there are three common settings for the maximum number 
of breaks value. 

(1) For time thresholded operation, set max. breaks to 25. 
Typed In or otherwise computed times will indirectly 
limit the number of breaks to the.number desired. Use 
time thresholding to compute a zero break pattern. 

(2) For voltage thresholded operation where the manifold 
shape is of great importance .but the number of breaks 
per half-cycle is not of concern, set the max. breaks 
number to 25. 

(3) For voltage thresholded operation where some fixed number 
n breaks are desired per half-cycle, set the max. breaks 
number to that value n. This is the only way to force 
the number of breaks to be limited in voltage 
thresholded operation. 

Break time and break voltage Input allows user input of times 
for time thresholded operation, or Individual break voltages for 
use in voltage thresholded operation. Input break voltages are 
nonvolatile; that is, the threshold voltages may be typed in at 
the beginning of a run, other computations performed, and the typed 
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In voltages will still be available for later computation. This 
is not the case for typed in times. The register used to store 
typed in times is rewritten each time a charging calculation is 
performed. Thus if time thresholding employing user input times 
is desired for half-cycle n, there can be no calculations performed 
on that half-cycle between the time the break times are typed in 
and the time they are employed. Computations involving other 
half-cycles can be performed, however. 

When time and voltage input is solicited, one must specify 
for how many half-cycles input is to be made. If "1" is 
specified, the input will be to half-cycle one. If "2“ is 
specified, input is to half-cycles one and two, etc. To be able 
to input break times or voltages to half-cycle 4, one must specify 
that input is to be made to all four' half-cycles. It will be 
explained shortly how to skip over the data already present in one 
half-cycle in order to input data to a succeeding half-cycle. 

It is legitimate to specify that 0 half-cycles of break time 
or break voltage data is to be input. If this is done, the time 
or voltage input routine is skipped. 

Now the break time input will be specifically discussed. If 
the default “-2" is given in declaring the number of half-cycles 
of input times desired, all four half-cycles are set to give a 
bfsak at 1000, 2000, ..., 8000 microseconds. When Inputting 
specific break times within a half-cycle, specifying the default 
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generates a time of lOOOn as the break time, where n is the number 
of the break (for the third break, the default time would be 3000 
microseconds). The input times may be given in any order—they 
are automatically sorted in ascending order. After the last 
desired time has been entered, the user's desire to terminate 
input is indicated by entering a break time of 0 when solicited. 
Note that by entering 0 as the first break time, a zero break 
pattern is generated. 

One other user choice, which is solicited before break times 
are specified, is whether a new list of break times is to be input 
or whether an old list of data is to be modified. "Fresh" input 
(also the default) clears out old break times within a half-cycle 
so that only the breaks times input during the present 
initialization call will appear for the given half-cycle. “Add to" 
input leaves old data in tact and allows addition of new break 
times to a preexisting list. By using “Add to" input, then 
specifying a break time of 0, one can effectively "skip over" a 
half-cycle where the old list of break times is to remain 
unchanged, in order to get to a half-cycle where changes are 
desired. 

After a break time of "0" is entered, one may choose to edit 
break times (input "Yes", "Y", or "-2") or to continue with the 
next program operation (input "No", "N", "0", or "-1"). if 
editing is chosen, an opportunity is given to clear the screen 



(“Home Is printed; the screen may be cleared, a character typed, 
and carnage return given to resume operation.), and the list of 
breaks times is printed out, with each break identified by a 
sequence number. The user may then delete break times not desired 
by specifying their sequence numbers. As many breaks as desired 
may be deleted. Deleting break 0 terminates the deletion routine. 
If the user is then satisfied with the break times input, he/she 
may continue to the next operation. If not, he/she may return to 
input more break times for the present half-cycle. To get a 
tabulation of the deletion-corrected times list, the user can 
claim not to be satisfied, input a new break time of 0, and get a 
fresh tabulation. 

For the break voltage input routine, the initial choice is 
"Fresh" or "Edit". "Fresh" mode is similar to "Fresh" operation 
of the time thresholding routine except that data must be input 
in the order desired. Input voltages should be in volts. Again 
the digit 0 terminates Fresh input. After Fresh input is 
completed or when Edit mode Is chosen, the user has a choice of 
leaving the voltage input routine ("Done"), inserting a new break 
voltage at an appropriate point in the voltage list ("Insert"), 
deleting a break voltage from the list ("Delete"), listing out the 
present input voltages ("List"), or returning to Fresh mode 
("Fresh"). Both insertions and deletions should be performed one 
at a time. Interspersed with listings of the break voltages. 
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Insertions and deletions change the sequence numbers of the breaks, 
and attempting to perform more than one insertion or deletion at a 
time may lead to confusion. 

B. Calculation Routines 

There are a number of subtle points concerning break pattern 
calculation which, when considered, can speed and ease program use. 
First to be considered will be the time thresholding routine. The 
control parameters which are supplied for this routine are: 

(1) the half-cycle upon which computation is to be performed, 

(2) the source of initial conditions for the computation, and (3) 
the source of break times for the thresholding routine. Computation 
may be performed on any of the four half-cycles. Default is 
half-cycle one. Using a half-cycle for which no break times have 
been supplied simply leads to a zero breaks charging pattern. 

An aside may be helpful in understanding the paragraphs to 
follow. After charging computations are performed on a half-cycle, 
a number of parameters are saved in memory. Including capacitor 
voltage and charging current at the end of the half-cycle,and the 
break times which were computed. These are available for later 
access during output or for use in later computations. 

Initial conditions may come from one of three sources: 

(1) typed in input, (2) prior computations in the half-cycle being 
used for the present computation, or (3) the last data.point of 
the previous half-cycle. “Typed in input" is the set of initial 
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conditions entered in the initialization routine. "Prior result 
in this half-cycle" takes the current and voltage computed as the 
last data point during a previous computational pass through the 
half-cycle of Interest, and uses that as the initial conditions 
for the present pass. An application for this will be discussed 
momentarily. "Result of previous half-cycle" takes the last data 
point of the half-cycle numbered one lower than the present 
half-cycle,and uses the voltage and current therefrom as initial 
conditions for the present half-cycle. This is the mechanism by 
which one puts sequences of half-cycles together to form patterned 
Intervals, by passing initial conditions sequentially from 
half-cycle to half-cycle. Just as In a hardware spark source, the 
initial conditions of succeeding half-cycles can be obtained by 

finding what the source conditions were at the end of the previous 
half-cycle. 

Break times may be specified as originating either from a 
data bank associated with the half-cycle currently subject to 
computation, or from the bank associated with the previous 
half-cycle. If a particular set of break times have been typed in, 
or computed using an earlier pass of voltage thresholding, then 
the selection "this" for the source of half-cycle break times 
should be made. However, if one wishes to put together a 
patterned interval in which all half-cycles employ the same break 
times, it is often convenient to put those times in half-cycle one 
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(by typed input or voltage threshold computation) and then use 
-previous" as the source of break times In succeeding half-cycles 
to carry forward those break times for subsequent use. 

To reiterate, voltage thresholding automatically overwrites 
typed in break times in a given half-cycle with the break times 
applicable to the voltage thresholded computation. Further, the 
-previous" half-cycle is Indeed the half-cycle with the next lower 
number from the one undergoing computation-the previous half-cycle 
to half-cycle four is half-cycle three. The previous half-cycle 
for half-cycle one Is half-cycle four, making it possible to put 
together control intervals of indefinitely great length (although 
output is limited to the four most recently computed half-cycles). 

In all computations, it is advisable to Iterate a pattern 
several times to determine the steady-state behavior of the 
system. There are two ways to do this for time thresholded 
computations as shown in Figure D.3. Inset A shows a method 
whereby the progress of the Iteration can later be studied via a 
complete output of the pattern: Both break times and initial 
conditions are passed from one half-cycle to the next. After the 
computations are completed, four half-cycles of Iteration may be 
output and the degree of convergence of the iteration examined! 
Another method is shown in Inset B. Here the results of one 
computational pass through a half-cycle are used again on the next 
pass. The only information available for output is the last 
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Two Feasible Time Thresholding Iteration Sequences 
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Iteration. Each of these two methods has its uses. Method A may 
be appropriate when novel combinations of source parameters are 
tested, as the process of pattern convergence may give an 
Indication as to the stability of that.particular combination of 
parameters and as to the need for Iterative calculations during 
routine running. Further, until one has some idea of the number 
of iterations necessary for the charging algorithms to converge, 
it is Inadvisable to blindly throw out the sequence of iteration 
calculations; this might result in incomplete iteration by a 
hurrying user. Method B may be used when the user is confident 
that sufficient iterations are indeed being performed, and a 
concise output is desired (one half-cycle only containing the final, 
stable break pattern). This method takes less time to use than 
Method A. 

When using the voltage thresholding routine, many 
considerations are quite similar to those for using the time 
thresholding routine. However, because there are more variables, 
flags, and user controls, over the nature of the thresholding 
conditions, several extra points are in order. 

When the voltage thresholding routine is called, the questions 
which must be answered are: 

(1) Which half-cycle Is to be affected by computations? 

(2) What Is the source of initial conditions? 
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{These two questions work In the same manner as they did In the 
time thresholding routine and will not be discussed further.) 

(3) Which manifold is to be used? 

(4) How should the conformity control be set? 

(5) How should the melding control be set? 

(6) How should the first break control be set? 

In addition, the user Is asked to confirm that the questions were 
answered to his satisfaction. If they were not, they may be 
reanswered prior to execution of the computations. Only an active 
answer of "Yes", "Y", or "-2“ to the question of satisfaction with 
the setup will allow computation to procede. 

There are six manifolds the user can choose. The arrangement 
of the question can be seen in Section V of this appendix, 
page EX-6. After a particular manifold is selected. In general 
other Input is solicited. Note that for manifold 1, the voltages 
typed In during initialization are used, avoiding further input. 
Quantities needed for the other manifolds were listed earlier 
under function descriptions FNU through FNZ. 

Answers to the other questions concerning voltage 
thresholding were also discussed above. By way of clarification. 
If the "First Break" time is entered as 0, this corresponds to 
the control being unset. If a positive number is entered, this 
gives the time of the first break of the half-cycle. 

An overall operating strategy will now be addressed. As 
discussed in Chapter III, voltage thresholding is an inherently 



unstable computation. Thus to "iterate" a voltage thresholding 
calculation to obtain a stable pattern is not an efficient 
process. There are several procedures, however, which tend to 
stabilize the algorithm and still allow accurate matching of 
manifold shape. The first of these is to specify the time of the 
first break in the half-cycle. By time thresholding the first 
break, small accumulated differences between the desired and 
actual charging curves can be eliminated or at least dissipated 
in a known break (prior to the first break, presumably the diode 
Is reverse biased, so that initial current effects are small and 
the "history" of the spark train leading up to the first break is 
only weakly carried forward to further breaks). This may be 
sufficient to allow voltage thresholded iteration to determine 
break patterns. Note that the melding control may also be used in 
this regard. A second technique that guarantees stability is to 
make one calculatlonal pass using voltage thresholding, then doing 
Iterations by time thresholding, using the times generated by the 
voltage thresholded calculations. Upon examination of the time 
thresholded output, some deviations from the desired pattern may 
be noted. If this is the case, either break times may be varied, 
source parameters adjusted, or a new voltage thresholded 
calculation performed. By interspersing time and voltage 
thresholded calculations, the instabilities of voltage thresholding 
are reduced or blocked entirely. 
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For both time thresholded and voltage thresholded 
calculations, the results must be corrected for the "average 
current effect" discussed in Chapter III. While there is no 
explicit means of doing this within the program, the average 
charging current during a half-cycle is available in the "parameter 
dump" in the printed output. Thus correction for the average 
current may be made externally without excessive difficulty. 

C. Output Routines 

There are three types of printed output and two types of 
plots available for outputting charging data. These may be mixed 
together to give a wide variety of output options. The options 
are tabulated in the documentation block at the beginning of the 
output routine in the program listing. See listing page PITS-15. 

, PEPSUB is identical to the routine documented in Appendix B, 
except that all its Inputs have been "hard wired" so that user 
Input Is unnecessary. MINIPLOT too gives output without the need 
for user direction. Scaling of plots is user controlled via a 
routine written especially for PITS. During a single output call, 
both MINIPLOT and PEPSUB may be accessed. 

The printed output routine consists of three sections: (1) an 
option to print out the full charging curve, giving time, voltage, 
and current at each point; (2) an option to output only the break 
time, break voltage, and charging current at the instant of 
discharge firing; and (3) a "parameter dump" option to give a full 



Ifst of source conditions applicable during a given half-cycle, 
including capacitor voltage and charging current at the beginning 
and end of the half-cycle and average charging current during the 
half-cycle. If either of the first two printing options is called, 
the third automatically is invoked as well. On a single output 
call, one print option and one plot option may be executed. If 
both a print option and plot option are specified, the order of 
output is: (1) print options 1 or 2, (2) plot options, (3) print 
option 3. There may be omissions from this order due to option 
choice, but not permutations of the order. If both plots are 
requested in one option call, MINIPLOT executes before PEPSUB. If 
the user desires to set full scale on the plots, it is wise to get 
some sort of printout before attempting to plot. 

At several places in the output routine (and elsewhere in the 
program as well), the query "Horae?" appears. This gives the user 
an opportunity to clear the PEP terminal screen or advance to a 
fresh portion of teletype paper before continuing. When the 
question appears, the correct sequence of events is: 

(1) clear the screen or advance the paper. 

(2) type any letter or number; words may also be typed, but 
the extra characters are superfluous. Carinas and 
periods should not be used. 

(.3) Strike the return key and execution will resume. 

If one does not wish to clear the screen, step (1) can be omitted 
without ill effect. 






When the output routine is entered, the first item specified 
is the number of half-cycles to be output, if one half-cycle is 
output, that half-cycle is half-cycle one. Similarly, if two 
half-cycles are output, they are the first two. Up to four 
half-cycles may be output at once. 

The next item to be input is a title. The title may not 
contain any commas, but otherwise may contain any symbols desired 
up to a maximum length of 60 characters. The default title is 
“Spark Pattern n" where n is a number, starting at 1 for the 
first output attempted. 

Once the title has been given, one of two things happen: If 
only a print option was specified or if print options 1 or 2 were 
specified in concert with a plot option, printed output is 
produced. If only plotting is to occur or if plotting plus print 
option 3 are to be executed, plot setup occurs next. 

Plot setup consists of setting two groups of parameters: 

(1) the variables to be plotted are selected and (2) the scaling 
to be used on the plots is selected. The three items which may 
be plotted are capacitor voltage, charging current, and transformer 
output voltage (rectified), with all three plotted as a function of 
time and any combination of items plottable simultaneously. When 
the program queries whether a particular item is to be plotted, a 
user response of "Yes" or "No" will select whether or not that’ 
item is plotted. The various plotted items are overlaid on each 
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other, with the program designed to automatically do the 
overlaying without user intervention. When more than one 
half-cycle is plotted, MINIPLOT outputs one half-cycle at a 
time. PEPSOB plots all the half-cycles concurrently; when hard 
copy Is obtained, the dimensions of the plot are set so that the 
scale spacing on the time axis is unaffected by the number of 
half-cycles plotted. 

The user also must specify a scaling option, as outlined in 
the documentation block on page PITS-15. Each of the options has 
Its highlights and pitfalls. ”-2» usage gives uniformly scaled 
Plots (15 kV and 500 mA full scale) but may show little detail if 
low voltages or currents are being plotted. "1" (maximum datum = 
full scale) gives the maximum possible displayed detail, but each 
plot or group of plots made with one output routine call is 
scaled differently. "2", wherein the peak transformer voltage 
determines full scale, may be appropriate for uniform scaling, 
but may also result in losing information at the top of the plot 
when capacitor voltage exceeds peak transformer voltage (an example 
of this is shown in the sample run in Section V below). Finally, 
option 3 allows the user to set the full scale current and 
voltage; it is strong recommended that some printed output be 
obtained before such scaling is set. Scales are expressed as 
volts (for full scale voltage) and as milliamps (for full scale 
current). For plot options 1 and 2, full scale for current is set 
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so that the plotted current fills only one-half of the vertical 
space available on the plot. 

Other questions which may arise during plotting of output are 
(a) whether the user is satisfied with the plot setup and (b) on 
the first call to PEPSUB, whether hard copy plotting should be 
enabled. Both questions may be answered “Yes" or "No" as seems 
appropriate. If the user is unsatisfied with the plot setup, 
setup questions are repeated. For considerations on answering the 
PEPSUB hard copy question, see Appendix B. 

Due to the restrictions of the graphics routines, both current 
and voltage scales cannot be written on the graph axes. If only 
one piece of information is plotted, this presents no problem and 
the correct vertical axis is labeled. If both current and voltage 
are plotted simultaneously, only the voltage scale gets printed on 
the graph-the current scale must be determined independently by 
the user. This presents little problem for options -2 and 3; in 
the former case, full scale is 500 mA, in the latter case whatever 
value the user chooses. For options 1 and 2, the only reliable 
way to determine scaling is to measure a current at some point on 
the plot and compare it to a tabulated value from the print 
routine. 

The termination routine is intimately entwined with the 
output routine. If the program is terminated by typing "stop" 
Instead of using the termination routine, all PEPSUB plotted 
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output may be lost, as well as hard copy printed output. When the 
termination routine is called, the user must specify whether he 
wishes to "terminate" or "keep running". This is a safety device 
to prevent accidental early termination. One then specifies 
whether PEPSUB plotted output is to be obtained Immediately ("now") 
or at some other time ("later"), if "now" is specified, control is 
given to the FORTRAN plot package which outputs PEPSUB plots, and 
the documentation associated with PEPSUB (Appendix B) describes 
the operation In detail. The version of the FORTRAN package 
employed is the 1000 point modification described in Appendix B.VI. 
When more than one curve is plotted on the same graph, the overlays 
are not all plotted at once but must be requested sequentially. By 
blindly answering “YES" to all questions posed by the FORTRAN 
package, all plotted output will be obtained correctly. If 
later" Is given as the time desired for viewing PEPSUB output, 
the program halts, and the user may then finish his run by 
entering 

BYE 

0FIN.C 

Do not try to execute PITS more than once between the entering of 
an @RUN statement and the 9FIN statement-only the plot for the 
last execution within a RUN will be available as output. 

If plot is to be obtained prior to 4:00 A.M. the morning 
following execution of PITS, a run can simply be started, an 
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9AD0.P PLOT, command given, and the plot will appear. If plot is 
to be obtained later than 4:00 A.M., the plot file should be saved 
by entering 

0SAVE.S PLOT. 

between the BYE and @FIN,C statements above. For details on 
"later" output of plots, see the discussion in Appendix B 
concerning use of BASIC-PEP. 

It was mentioned earlier that a method exists for obtaining 
hard copy of all interactions between a PEP run and the program. 
This employs a program called BFNLIST which is a system level 
coding available on the 1110 computer. A procedure which works 
(but is awkward) will be outlined here. Note that if BFN is used, 
use of hard copy PRINTED output is redundant. Hard copy PLOTTED 
output must still be obtained in the usual way. 

The proper runstream is: 


8RUN AS,2231, 1893602639.S10.00.100 

(substitute user i.d. and project number) 

(password input) 

8CAT.P JPW*PR INTER. 

08TTY BFfl=JPW*PRINTER,RCD=IO 
@LIB*BACKUP.BASIC CHEMISTRY*WALTERS. 
OLD:PITS 

Run program PITS. At end of run, specify plot 
"later". This is critical! 
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BYE 

WHY BFN=OFF 
8ASG.UP MYPRINT. 

8BRKPT PRINTJ/MYPRINT 
8BFNLIST,10 JPW*PRINTER.,,90 
8BRKPT PRINTS 
8FREE MYPRINT. 

8SYM MYPRINT.,,PR21 
8AD0,P PLOT. 

Obtain plot--this may also be done on a different run if desired. 
8FIN.C 

The sequence above should not be altered without consulting someone 
familiar with the operation of BFN (Mike Dorl, an MACC systems 
programmer, devised the above schema in part). Be particularly 
careful to include or exclude periods in file names as. shown; 
some of the processors are quite sensitive to syntax errors. BFN 
is not a forgiving routine, but it does provide a method for 
obtaining full interaction details while running at a PEP terminal. 
Be sure to copy down the run number so that line printer output 
can be obtained. 

If plotted output is not desired, one or more of the plotting 
subroutines may be deleted. If this is done by simply E0IT 
DELETEing the routines, there will be several GO TO and GOSUB 
statements in the remainder of the program which will lack places 
to go. The easiest way to overcome this problem is to EDIT DELETE 
the undesired parts of the program, and attempt to run it. A list 
of undefined line numbers will be generated by BASIC. By typing 
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In RETURN statements for each of the otherwise undefined lines. 
It should be possible to run the program. 


0. Units 

Throughout the program, the units to be used are: 

voltage volts 

current mil 11 amps 

time microseconds 

resistance ohms 

capacitance microfarads 

Inductance henries 


IV. Program Listing of PITS 


Presented below is a complete listing of program PITS. In 
addition. Table D.2 gives a general map of which statements 
execute what sorts of operations. 
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PITC-1 


1 

2 

10 

11 

12 

13 

14 

15 
10 
17 
10 
10 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* PROGRAM PITS (PROUPAMMED XNOLI t'NDENTL Y TIMED SPARK SUURCE) * 

< PROGRAM TO CALCULA11 CAPACIItlK VOL f AGE IN A SPARK SUUJVCE « 

* CONSISTING or A VARIABLE »MJIUIRANGFORHLR. STLP-UP TRANSFORMER* * 

* charging resistor* pull, uave rectifier* capacitor* and discharge * 

« CIRCUIT* * 


* WRITTEN BY ALEXANDER SCHEEL1NE UNDER THE DIRECTION OF; 

* PROFESSOR JOHN P. WALTERS 

* DEPARTMENT OF CHEMISTRY 
« UNIVERSITY OF WISCONSIN 

* MADISON* WISCONSIN 53706 

* _ 

tt****tt**a*v*»t***cts»****»s»x««ft,r*****««**»«*****«*»t«***ty» v «t;rir* 

* * 

* PRELIMINARY SETUP « 

« * 

1 REM PROGRAM PITS (PROGRAMMED INDEPENDENTLY TIMED SPARK SOURCE) 

2 REN WRITTEN BY A. SCHEELiNE UNDER THE SUPERVISION OF! 

3 REM PROF. J.F. UALTCRS 

4 REM DEPARTMENT OF CHEMISTRY 
3 REM UNIVERSITT OF WISCONSIN 

6 REM MADISON* UI3C0NSIN S370A 

7 REM VERSION OF JUNE 19. 1977 

10 DIM F<3) *X(2000)*Y(1000)*I(4*250)*E(4*250)* T(4*2S0> 

20 DIM S(4*2S>.R(4*9).B«<10)*UC4*2S> 

30 VAR-ZERO 

40 DATA ^(FORWARD BIASED)*' * 'R<REVERSE BIASED)*' 

45 DATA 'L(HENRIES)*'* 'C<MICROFARADS)-' 

SO DATA 'PEAK XMFR VOLTAGE*'*'LENGTH OF DISCHARGE(MICROSECONDS)-' 

S5 DATA 'TO($TAKT TIME FROM ZERO CROSSING)-'*'IO(MILLIAMPS)-'»'E0-' 

60 DATA 'MAXIMUM PREDICTED BREAKS PER HALF CYCLE*' 

70 MAT READ B* 

75 PRINT 'DO YOU WANT HARD COPY'* 

SO INPUT A* 

85 IF Ai-'YES' OR A**'Y' OR A«*'-2' THEN F<l)-t ELSE FID-0 
90 IF FC1)«1 THEN OPEN FOR SYMBOLIC PRINT*7 
100 PRINT 'UHAT IS POUF.R SUPPLY FREOUENCY--' 

105 PRINT '40 UR 0.I HERTZ') 

110 INPUT IS 
IIS 14-4.283I82 

120 IF 15-40 CR IS-. I THEN 125 ELSE XOO 
125 IS-I54I4 

130 IF F< 1 )-l THEN PRINT ON 7 IN IMAGE 'THIS RUN* 22.2 HERTZ' 515/14 
135 GOSUB 11950 

138 IF F«l)-1 THEN PRINT ON 7 IN FORM 'WW'J 

140 VI—7 

145 V9-I 

ISO GOSUB 202S 

155 GO TO 1000 
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ms-2 


94 

SS 

94 

57 

50 

5f 

40 

41 

42 

43 

44 

45 


47 


47 

TO 

71 

72 

73 

74 

75 
74 
77 
70 
77 


•1 

02 

•3 


•5 

04 

07 


70 

71 

72 

73 

74 

75 
74 
77 


100 

101 

102 

103 

104 

105 
104 
107 
100 
107 
110 


c * 

C * FUNCTIONS 
C * 

C * THE FOLLOWING CONSTITUTE ALGORITHMS USED IN EVALUATING 

C * THE CHARGING VOLTAGE AND CURRENT. EACH FUNCTION WORKS ON 

C * ONE CONCEPTUAL UNIT OF THE CALCULATIONS* 

c « 

C ******X****#X*XXfXX¥***********X*X**«*XX*#X*X**X***#*****«XX***»*»X 
c *****«xt«yx«x«*****««««»«4*yy»*«K***«x*y *««*«««**«»****«***«»***«** 
C * 

C * FNP 

C 9 

C * CALCULATE CONSTANTS WHICH ARE FUNCTIONS ONLY OF R»L*C* AND 
C * PEAK TRANSFORMER VOLTAGE* THESE ARES 

C * 

C * S SQUARED 

c * s 

c * zo 

C « GAMMA 

C * VP/ZO 

C * S-R 

C * 

c »*«t***»t**»«**t***«*«y«**«x*«****x****»*******«»**»***t*******«*»* 

500 DEF FNP<R*L*C> 

505 IF OO THEN Sl-R?R-4*L/<C*l£-6> ELSE S1«R*R 
315 S2*SQR<AB0<$1)) 

520 IF C>0 THEN S3«SQR<RfR+< I5*L-I/< I5*C*t£-4> )**2> 

525 IF C-0 THEN S3*SGR(R*R+< IS*L>*«2> 

530 IF OO THEN S4«ATN< U5<L-l/fIS*C*tE-6> >/ft> ELSE S4«ATN<I5*L/R> 

535 SS-E1/S3 
538 S4»<S2-R)/R 

540 IF ABS<S6»lE-3 THEN S6*S2-R ELSE 543 

542 GO TO 345 

543 IF OO THEN S6«4*L/<R*R*C*lE-6> ELSE S4-0 

544 S4—S4* <.5+S4/8) XR 

545 FNENO 

C ******x«xx*******x*x*#x************x**«******x***x***xx****x***x*«x* 

C 4 * 

C * FNT « 

C * 9 

C * CALCULATES * 

C * THETA NOUGHT PLUS GAMMA * 

C * COEFFICIENTS OF COMPLEX HYPERBOLIC FUNCTIONS WHICH ARE « 

C * INDEPENDENT OF THETA* « 

C * x 

C ***»vx»**x*xjMXt*«x*x»**»y**x*«*»««»tx**««««xsxy»x«»«xxx**x4«xx*x««x 

550 DEF FNT<T'tr£*R'LfC> 

555 IF ISM THEN Tl*IS«<4l46*47-T)xl£-6 ELSE Tl«IS*T«lE-6 

540 T2-S4+T1 

545 REM AS* A9 ARE GLOBAL—WATCH IT? 

370 A8»C0S<T2J 
573 A9*SIH<T2) 

580 T3«S3*C2fIS*LtA8-R*A9>~ISx(2*L*l**001+EtK*C*l£-4> 

58S T4»EtI5*C*tE-4f8S*A9 
590 IF OO THEN SVS ELSE 405 

595 T5»SS*<R*A8-2«A?/<15*C*IC-4J>- (Z«R**001f2«E) 








600 GO TO 610 
605 T5-S3*R«A8-!4R4.001 
610 T6-I4.001-S54A8 
615 FNCND 

C ***********$*******m*****n****w ********************9****mM**m 

c t t 

C t FNS I 

c * 2 

C * CALCULATES CSINH0 

C * 

650 ;EJ7JSJJJ* f *** f? *** ,# * 3, '** ,,t ** , *** 3,r * ],tJ,r **** J,, *********«******W*«**«* 

655 IF S1>0 THEN 680 ELSE IF Sl*0 THEN 670 

660 FNS-SIN<S24A>/S2 

665 GO TO 685 

670 FNS*A 

675 GO TO 685 

680 FNS- (EXP< A4S2 )-EXP < - A4S2 > >/ < 24S2 ) 


c * M 

C * FNC I 

C * | 

C * CALCULATES CCOSH I 

C * J 

c *****************t********************m ***t***t*****«t»***3ft****m»* 

700 DEF FNC(A) 

705 IF S1>0 THEN 730 ELSE IF Si-0 THEN 720 

710 FNC-COS(S24 A) 

715 CO TO 735 
720 FNC-1 
725 GO TO 735 

730 FNC-<EXP<A4S2)+EXP<-A4S2> >/2 
735 FNEND 

C *6«6*«**44****44*4*644**##**66**4******4**446*444»*4»***4*****«44*4 
c * . » 
C * FMI ; 

c * J 

C * CALCULATES CHARGING CURRENT IN MILLIAMPS* * 

750 OEF FMI(TfR) 

755 A7-T45E-7/L1 

758 IF A74S2M0 THEN IF S1>0 THEN 770 
760 A8-FNC(A7> 

765 A?»FNS(A7) 

770 A6»S34C0S<I54T*lE-6-T2> 

773 IF A74S2M0 THEN IF Sl>0 THEN 778 

775 FNI»<A6+EXP(-R*A7)*CA9*T5+A84r6; >41000 

776 GO TO 780 

778 FNI«<A4+£XPCS44A7>6<T3/S2+T6>4.3>41000 
780 FNEND 

C *444444«4444444*4*44«444*»4A444444«44*t*t44A44**444»44X44S4»4*4a»4»4 

C * FNE I 

C * I 

C * * CALCULATES CAPACITOR VOLTAGE* 9 
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PITS-4 


148 C * , 

149 c 

170 800 DEF FNE<T.RrC> 

171 805 A7»T*SE-7/Ll 

172 808 IF A7*S2>10 THEN IF S1>0 THEN 820 

173 810 A8~FNC(A7> 

174 815 A9-FNS<A7> 

175 820 A4*S3*SIN<I5*T*tE-4-T2> 

174 823 IF A7XS2 10 THEN IF 51 0 THEN 828 

177 825 FNE"A6-EXP<-RXA7)X(A9*T3-A8*T4> 

178 824 GO TO 830 

179 828 FNE»A4-£XP<S4*A7>*<T3/S2-T4>*.S 

180 830 IF C>0 THEN A?~l/<I3*C*lE-4) ELSE A7»0 

181 835 FNE«A7*FNE 

182 840 FNEND 

183 C xxx*x»x*x*»x*xxxxx*x*««*xx*«*x**4*x»**xxx*x**x*xxx*«xxx**x*x*xxxxxxx 

184 C * * 

185 C * SUBROUTINE TO SET DIODE BIAS CONDITION AND CALCULATE CONSTANTS. X 

184 C * | 

187 C *t**XXX*XXX**XX*X*VX*XX««*XX*X*»XX«XXXXXX**»XX**»XXXXXXXX*X*X*»X*X*X 

188 850 Ql*l 

189 855 REN Ql*t*FORUARD BIAS; Q1»0*REVERSE BIAS 

190 840 CALL FNPCRl.Ll'Cl) 

191 842 REN AT BREAK TIME*EXCHANGE Cl WITH A SCRATCH REGISTER 

192 843 REN BEFORE CALLING THIS ROUTINE. 

193 845 CALL FNT<T»l2»E4rRlrLlrCl> 

194 848 REN T-NOST RECENTLY CONPUTEP TINE. ETC. 

195 870 RETURN 

194 875 01*0 

197 885 R1**R2 

198 890 GOSUB 840 

199 895 R1**R2 

200 900 RETURN 

201 C *XX*Xt***«XXXXXXXXXX*X***X***X*XX*****XX«XXXX****XX*X**X*«»XX*XXt»X* 


202 C * * 

203 C $ FML * 

204 C * « 

205 C < INTERPOLATION ROUTINE. * 

204 C t * 

207 C t GIVEN CURVES Y AND Z WITH VALUES Y1 AND Z1 AT X*X1* * 

208 C * AND Y2 AND Z2 FOR VALUES AT X«X2r FIND X C*FNL> WHEN Y»Z. X 

209 C * X 


210 C x*x**xt*«xxt«xxx«»*x«»**vt*x***x*xx*xx**x*xx»x*s««xx***xxxx**xxx*«*x 

211 950 DEF FNL<Xl'YlrZl'X2'Y2rZ2> 

212 955 IF Y2-Z2+Zl-Yl*0 THEN 970 

213 940 FNL*< X21(Z1~Y1)+X1*(Y2-Z2) )/( Y2—Z2fZ 1 “Y1) 

214 945 GO TO 975 

215 970 FNL*<Xl+X2)/2 

214 975 FNEND 
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pits-5 


217 

218 

219 

220 
221 
222 

223 

224 

225 
224 

227 

228 

229 

230 

231 

232 
223 
234 
239 
234 

237 

238 

239 

240 

241 

242 


C « CORE ROUTINE ! 

C * J 

C * THIS ROUTINE HAS NO DEFAULTS. * 

C * QUESTION IS SELF-DOCUMENTING. « 

C * | 

1000 REM MAIN CONTROL ROUTINE 
1003 PRINT - ' 

1005 PRINT 'THE POSSIBLE ROUTINES ARE." 

1010 PRINT 'INPUT* CALCULATE* OUTPUT* TERMINATE.' 

1015 PRINT 'ENTER A NUMBER l* 2* 3* OR 4.'> 

1020 INPUT U1 
1023 PRINT ' ' 

1025 IF Ul<MNT(Vl) OR UK 1 OR Vl>4 THEN 1015 

1030 ON U1 GO TO 1035*1045*1055*1070 

1035 GOSUB 2005 

1040 GO TO 1060 

1045 GOSUB 4000 

1050 GO TO 1060 

1055 GOSUB 8000 

1040 PRINT ' ' 

104S GO TO 1005 
1070 GOSUB 12000 
1075 GO TO 1040 
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PIT5-E 


243 

244 

245 
24* 
247 
240 
24* 

230 

231 

232 

233 

234 
233 
254 

237 

238 
23* 

240 

241 

242 

243 

244 

243 

244 

247 

248 
24* 

270 

271 

272 

273 

274 

273 

274 

277 

278 
27* 
280 
281 
282 

283 

284 


284 

287 

288 
28* 
290 
2*1 
292 
2*3 
2*4 
2*3 
2*4 
2*7 

298 

299 


C ******************** tt*«****Bft****a*«ss*««sit**««*«cft 

C * 

C * INITIALIZATION ROUTINE 
C * 

C * options are: 

C * i) enter r*l»c* and reverse has r only. 

C 4 2) ENTER INITIAL CONDITIONS, 

C * 3) 1) AND 2>. 

C 4 41 ENTER BREAK TIMES AND/OR VOLTAGES3 ALSO MAXIMUM 
C * PREDICTED BREAKS PER HALF CYCLE, 

C * 3) 1) AND 4). 

C * 4) 2) AND 4), 

C * 7 > Ui 2 >* AND 4) • 

C * 

C 4 DEFAULTS: -1 USE PREVIOUSLY ENTERED VALUE, 

Cm -2 USE STANDARD DEFAULT VALUE. 


C * 

C * STANDARD DEFAULTS: 

C * 

C * FORWARD RESISTANCE <OHMS> 40000 

C * REVERSE RESISTANCE (OHMS) 33E4 

C 4 INDUCTANCE (HENRIES) 25 

C 4 CAPACITANCE (MICROFARADS) 0.01 

C 4 PEAK TRANSFORMER VOLTAGE lOOOO 

C 4 DISCHARGE DURATION (MICROSECONDS) SO 

C 4 INITIAL TIME VS ZERO CROSSING CUS) O 

C 4 INITIAL CURRENT (MILLIAMPS) 0 

C 4 INITIAL CAPACITOR VOLTAGE (VOLTS) 0 

C 4 MAX. PREDICTED BREAKS PER HALF CYCLE 23 

C 4 


C 4 BREAK TIMES MULTIPLES OF lOOO US 4 

C 4 BREAK VOLTAGES 4000 * 

C 4 £ 

C 4 USE OF EDITING FEATURES FOR TIME AND VOLTAGE INPUT IS 4 

C 4 EXPLAINED IN DOCUMEN TAT ION, « 

C 4 J • 

C ************************ t#*x*x»*««c««**sxxsxt*a**x«t*t«K«vxx*vt**x»»* 

2000 REM INITIALIZATION ROUTINE 

2003 PRINT 'UHAT INITIALIZATION OPTION DO YOU DESIRE'3 

2010 INPUT VI 

2013 IF V|*-2 THEN Vl*7 

2020 IF V1CINT<Vl> OR V1<1 OR tfl>7 THEM 2005 
2023 V9-0 

2030 FOR Jl«l TO 10 

2033 IF 1 '»J1 AND J1 ;»4 THEN IF M0D(Vl»2)«t THEN 2050 ELSE 2103 
2040 IF 5<«J1 AND JK*9 THENIFV1->2AN3U1 V 4ANBV1 ;/STHEM 2030 ELSE 2185 
2043 IF Jl>9 AND Vl.'3 THEN 2030 ELSE 2183 
2030 PRINT B«(J1>; 

20SS INPUT V2 

2040 IF V2»-l AND V9-»l THEN V2«-2 

2043 ON J1 GOTO 2070*2090*2100*2120,2l20*2l30*2l40*2lSS*2l4Sr2173 
2070 IF V2«-2 THEN Kl«40000 ELSE IF V2 4 THEN Rt*V2 
2073 IF V2<«0 AND V20-I AND V2 *-2 THCN 2080 ELSE 2185 
2080 PRINT Bt(Jl)) ' ' IV2* ' IS NUT ALLOWED,* 

2083 GO TO 2050 

2090 IF V2—2 THEN R2-33E6 ELSE IF V2X> THEN R2-V2 
2093 GO TO 2073 
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2ITS-7 


300 2100 IF 02—2 THEN Ll*25 ELSE IF V2>0 THEN L1«V2 

301 2105 GO TO 2075 

302 2110 IF V2—2 THEN Cl*.01 ELSE IF V2>*0 THEN C1*V2 

303 2115 IF V2'0 AND V2: W AND V2 2 THEN 2080 ELSE 2185 

304 2120 IF 02—2 THEN E1-E2-10000 ELSE IF 02>0 THEN E1-E2-02 

305 2125 60 TO 2075 

304 2130 IF 02—2 THEN T8* 50 ELSE IF V2>*0 THEN T8-V2 

307 2135 GO TO 2115 

309 2140 IF 02—2 THEN T7-0 ELSE IF V2>-0 THEN T7*V2 

307 2145 IF T7‘-8333« THEN 2080 

310 2150 GO TO 2115 

311 2155 IF 02—2 THEN 11-0 ELSE IF 020-1 THEN 11*02 

312 2140 GO TO 2185 

313 2143 IF 02—2 THEN ES-0 ELSE IF 020-1 THEN E5-02 

314 2170 GO TO 2105 

315 2175 IF 02—2 THEN 14*25 ELSE IF 02>0 THEN 14*02 

314 2180 IF 02>25 THEN 2080 ELSE 2075 

317 2185 NEXT J1 

318 2170 01*0 

317 2195 IF 01<4 THEN RETURN 

320 2200 'FOR HOU WANT HALF-CYCLES DO YOU MISH TO ENTER BREAK TIMES'! 

321 2205 INPUT 01 

322 2210 PRINT ' ' 

323 2215 IF INT<01X>V1 OR 01<-2 OR 01>4 THEN 2200 

324 2220 IF 01—1 OR 01*0 THEN 2440 

325 2225 IF 01—2 THEN 2230 ELSE 2255 

324 2230 FOR J2*l TO 4 

327 2235 FOR Jl-1 TO 8 S<J2rJ1 )*J1*1000 

328 2240 SCJ2#7)*0 

329 2245 NEXT J2 

330 2250 RETURN 

331 2255 PRINT 'ENTER BREAK TIMES IN MICROSECONDS FOR EACH HALF CYCLE. 

332 2240 PRINT 'AFTER ALL BREAKS ENTERED FOR A HALF CYCLE# INPUT 0.' 

333 2245 FOR J2»l TO 01 

334 2270 PRINT ' ' 

335 2275 PRINT 'HALF CYCLE')J2 

334 2280 PRINT ' ' 

337 - 2285 PRINT 'ENTER DREAK TIMES AFRESH OR ADD TO PREOIOUS LIST' 

330 2270 PRINT 'TYPE "FRESH" OR "ADD TO' " ) 

337 2275 INPUT A# 

340 2300 IF A4*'-2' OR A**'FRESH' THEN 2310 £ L f? , i _ 0 

341 2310 R<J2r2)«0 

342 2315 60 TO 2325 

343 2320 G0SU8 3075 

344 2325 A4*RCJ2r2> 

345 2330 PRINT ' ' 

344 2335 PRINT 'BREAK TIME*') 

347 2340 INPUT A3 

348 2345 IF A4-25 AND A3<>-1 AND A3O0 THEN 2500 

347 2350 IF A3—2 THEN A3*1000*<RCJ2»2) + l) 

350 2355 IF A3—1 OR A3»0 THEN 2400 

351 2340 IF A3<0 OR A3 '8333.3 THEN 2345 ELSE 2380 

352 2345 PRINT 'BREAK TIME OF ' I A3»' IS NOT ALLOWED.' 

353 2370 PRINT 'TIME MUST BE BEIULEN 0 AND 8333.3.' 

354 2375 GO TO 2335 

355 2380 R(J2»2)*R(J2#2>+1 

354 2385 A4-RCJ2»2> 
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> S(J2»A4)-A3 
GO TQ 2335 
S<J2*A4+t>*0 
GOSUB 2540 

PRINT '00 YOU UISH TO EDIT BREAK TIMES' I 
INPUT Af 

IF At*'YES' OR At*'Y' OR At*'—2' 1HEN 2430 

IF A4*'N0' OR At*'N' OR At*'0' OR A*»'-l' THEN 2530 ELSE 241« 
GOSUB 11V50 

PRINT 'BREAK TIMES AREJ' 

FOR J3-1 TO A4 PRINT JJ»S(J2»J3) 

PRINT 'REMOVE UHICH BREAK 'i 
INPUT V5 

IF V5<*0 THEN 2473 

IF V5<>INT<V5> OR V3>A4 THEN 2445 

S< J2»V5)*0 

GO TO 2445 

GOSUB 2540 

PRINT 'SATISFIED FOR THIS HALF CYCLE' * 

IF^At-'YES' OR At*'Y' OR At*'-2' OR At*'-1' OR At*'0' THEN 2330 
IF A*«'NO' OR At-'N' THEN 2335 ELSE 2480 
GOSUB 2540 

PRINT 'LAST^NPU^IGNURED—YOU ALREADY HAVE 25 BREAKS IN THIS'* 

PRINT 'EITHER^EDIT BREAK TIMES OR GO TO THE NEXT HALF CYCLE*' 

GO TO 2410 
NEXT J2 
GO TO 2440 
A5-A4-1 

IF A5<-0 THEN RETURN 
FOR J3*l TO A5 
A4-A3-J3+1 

IF^S<fj2# J4)>S< J2> J4+1 > THEN S<J2*J4)**S(J2rJ4-H) 

NEXT J4 
NEXT J3 

™S<£Ij™«s?J2,J3+t> OR S<J2»J3)*0 THEN 2590 ELSE 2400 
FOR J4»J3 TO AS S( J2» J4)*S< J2» J4+1 > 

S<J2>A4)*0 
NEXT J3 
A3—1 

FOR J4*l TO A4 

IF S<J2»J4)>0 THEN A5*AS+1 

NEXT J4 

A4*A5+1 

R<J2r2)*A4 

RETURN 

PRINT*'ENTER**BREAK VOLTAGES FOR HOU MANY HALF-CYCLES' * 

INPUT VI 

IF INT<VI)OVl OR VI >2 OR VU-4 THEN 2440 
IF VI —1 OR V1*0 THEN RETURN 
IF VI—2 THEN 2475 ELSE 2700 
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2475 
2400 
2405 
2690 
2695 
2700 
2705 
2710 
2715 
2720 
2723 
2730 
2735 
2740 
2745 
2750 
2733 
2740 
2743 
2770 
2773 
2780 
2785 
2790 
2793 
2000 : 
2803 : 
2810 ( 
2013 J 
2820 f 
2823 f 
2830 F 
2835 F 
2840 h 
2043 F 
2030 G 
2035 P 
2840 6 
2843 P 
2870 I 
2873 X 
2880 F 
2885 U 
2890 A 
2893 Gl 
2900 IJ 
2905 Pi 
2910 G< 
2915 Pf 
2920 If 
2925 If 
2930 If 
2933 GC 
2940 GC 
2943 FC 
2950 GC 
2953 GC 


t FOR J2-1 TO 4 
• FOR J7-1 TO 7 U<J2rJ7>«4000 
i U(J2»8>»0 
» NEXT J2 
RETURN 

PRINT 'ENTER BREAK VOLTAGES IN VOLTS IN THE ORDER DESIRED 
PRINT 'DEFAULT -2 GIVCS 4000 VCLIS.' PAIRED. 

PRINT ' Z ' Fk£SH h0D£r AFTER LASJ * RE * h ' ***** 2Eft0 *' 

FOR J2*l TO VI 
PRINT ' ' 

PRINT 'HALF-CYCLE'SJ2 
PRINT ' ' 

PRINT 'FRESH OR EDIT'? 

INPUT AS 

IF AS-'FRESH' OR AS-'-2' THEN 2740 ELSE 2733 

IF AS—'EDIT' THEN 2770 ELSE 2723 

A4-0 

GO TO 2960 
GOSUB 3130 

INPUT AO***"* INSERT * D * LET *’ LISTt OR DOME'S 

IF AS-'DONE' THEN 3035 
IF AS-'FRESH' THEN 2740 
IF AS-'INSERT' THEN 2900 
IF AS-'DELETE' THEN 2845 


5 IF AS-'INSERT' THEN 2900 
0 IF AS-'D£LETE' THEN 2843 
5 IF ASO'LIST' THEN 2773 
» GOSUB 11950 
5 IF A4—0 THEN 2833 

> PRINT 'NUMBER'STADt10>!'BREAK VOLTAGE' 

5 PRINT ' ' 

) FOR J7-1 TO A4 

j F0RM ' XZ 12BSZ' *J7rU<J2tJ7) 

f PRINT ' ' 

> GO TO 2775 

j £ R1 ** ngSs DATA IN AftRAy F0R THIS malF-cyclc* * 

' PRINT 'WHICH BREAKM 
; INPUT J3 

IF INT<J3>*'VJ3 OR J3>A4 OR J3«, 1 THEN 2843 

FOR J4-J3 TO A4 LET U<J2rJ4»«U<J2rJ4+U 

U(J2rA4)-0 

A4-A4-1 

GO TO 2843 

IF A4-25 THEN 2905 ELSE 2913 

GO 1 TO '»04 READr 2S 0RC ** S IN H*t-F-CTCLE. ALL FULL.' 

PRINT 'INSERT AFTER WHICH BREAK'! 

INPUT J3 

IF INT< J3)OJ3 OR J32A4 OR J3>24 OR J3vO THEN 2915 
IF J3-A4 THEN 29J5 ELSE 2943 
GOSUB 3045 
GO TO 2045 

FOR J4-A4 TO J3+1 STEP -1 LET U<J2*J4+1J-UCJ2*J4> 
GOSUB 3045 
GO TO 2043 
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471 2740 J3-1 

472 2743 PRINT 'BREAK VOLTAGE*'! 

473 2770 INPUT V2 

474 2775 IF V2-0 THEN 2045 

475 2960 IF V2*-2 THEN V2=6000 

474 2785 IF V2<0 THEN 2990 ELSE 3000 

477 2770 PRINT 'ILLEGAL VOLTAGE' 

47ft 2773 GO TO 2945 

477 3000 U<J2tJ3>*V2 

480 3003 A4*A4+| 

461 3010 IF A4<>23 THEN U<J2rJ3+l>*0 

462 3013 J3*J3+1 

463 3020 IF A4*23 THEN 3023 ELSE 2945 

484 3023 PRINT '25 BREAKS* TINE TO EBIT.' 

463 3030 GO TO 2845 

464 3033 NEXT J2 

487 3040 RETURN 

488 3045 PRINT 'BREAK VOLTAGE*'! 

467 3050 INPUT V2 

470 3033 IF V2—2 THEN V2-4000 

471 3040 IF V2<*0 THEN 3043 ELSE 3073 

472 3045 PRINT 'ILLEGAL VOLTAGE' 

473 3070 GO TO 3043 

474 3073 U<J2*J3+D-V2 

473 3080 A4*A4+1 

474 3083 U<J2rA4+1>*0 

477 3090 RETURN 

478 3075 FOR J7*i TO 25 

477 3100 IF S(J2rJ7>*0 THEN 3105 ELSE 3115 

500 3105 R(J2’2)*J7-1 

501 3110 RETURN 

302 3115 NEXT J7 

303 3120 R<J2*2)»2S 

504 3125 RETURN 

505 3130 FOR J7-1 TO 23 

504 3135 IF U(J2rJ7>*0 THEN 3140 ELSE 3150 

507 3140 A4*J7-1 

308 3145 RETURN 

307 3150 NEXT J7 

3155 A4-25 
3140 RETURN 


310 

311 
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312 

313 

314 
515 
314 
31? 

318 

319 

320 

321 

322 

323 

324 

325 
324 

327 

328 

329 

330 

331 
532 

333 

334 

335 
334 
537 


m*tt«mmwmii*i*i*«*<*****»«M«*««»«*«w* M ”w««* M *** 

* J 

* CALCULATION CONTROL ROUTINE * 


* CHOOSE THRESHOLDING METHOD. NO DEFAULT. * 

* 'ABORT' CANCELS SUBROUTINE CALL. * 

* * 

»«««*****i****i****#nt*mi******«***»**»*««**»< 1 *«*«««** t * t 

4000 REN CALCULATION CONTROL ROUTINE 

4010 PRINT 'CHOOSE CALCULATION METHOD: 1) TINE THRESHOLDIN6* 

4015 PRINT TAB< 27)t *2) VOLTAGE THRESHOLDING' 

4020 REN LINE FOR AUTO NODE SELECTION PROMPT 
4025 PRINT TAB<J7)>'3) ABORT' 

4035 PRINT 'CHOOSE 1. 2* OR 3 't 
4040 INPUT D1 

4045 REM DI-D9 ARE LOCAL SCRATCH VARIABLES. 

4050 IF Dl-3 THEN RETURN 

4055 IF Dl<? INT(Ol) OR D1<1 OR Dl>2 THEN 4035 

4040 GOSUB 14000 

4045 GOSUB 14030 

4070 ON D1 GO TO 4075> 4085 

4075 GOSUB 6000 

4080 RETURN 

4035 OOSUB 14000 

4090 RETURN 
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538 

53? 

540 

541 

542 
343 


545 


547 

548 
540 

550 

551 

552 
533 
554 


554 

537 

558 

53? 

340 

341 

542 

543 

544 

545 
344 

547 

548 
54? 

570 

571 
372 

573 

574 

575 
574 

577 

578 
57? 

580 

581 

582 

583 

584 

585 
384 

587 

588 
38? 
5?0 
5?l 
5?2 
3?3 
3?4 


* VOLTAGE THRESHOLD MANIFOLD CALCULATIONS. * 

* * 
*Mitmmt«*M*M««i»««iMM»«**M*«***i«*m**i»tm»*i»#«***** 

* * 

« FNR * 

« * 

* FUNCTION TO SELECT VALUE OF VOLTAGE MANIFOLD AT TIME T. * 

* CALLS OTHER FUNCTIONS U»V*U*X#Yr AND /UK Z FOR ACTUAL J 

8 EVALUATIONS. * 


C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C *a****#**#*«************»***************Y<******** < ************ ,t * l[ ** 
4300 DEF FNR(T) 

4305 ON D2 GO TO 4310*4320*4J30*4340»4350*4340 
4310 FNR»FNUCT) 

4315 GO TO 4363 
4320 FNR»FNV<T> 

4325 GO TO 4365 
4330 FNR-FNU(T) 

4335 GO TO 4365 
4340 FNR»FNX(T) 

4345 GO TO 4365 
4350 FNR*FNY(T> 

4355 GO TO 4365 
4340 FNR«FNZ<T> 

C^^MM**************************************************************** 
C * * 

c 8 FNU TYPED IN INITIALIZATION VOLTAGES 
C 

c 

5000 DEF FNUTT) 

5005 FNU-U(Vl»G3) 

C° 1 °«<#M4************»***** < ***** , ****’* $ * ],t ** ,1,t *** f * ,t, *** $ ******** 3,, ***J 

C i FMV EQUIVALENT PATTERN MANIFOLD * 

C ******»*f<*J(i**#***»<***»«#******48***4*** t * ) ' t * ) **** t **** ,< ******** <f ** < 

5020 DEF FNV(T) 

5025 FNV-D3 

C I * 

c * FNU RANDOM PATTERN MANIFOLD J 

C J******************************************************************* 

5040 DEF FNU(T> _ ^ 

5045 IF G3 : D4 THEN 5050 ELSE 5040 
SOSO D5«D3*RND 
5055 D4-G3 
5040 FNU*D5 

c ws *mSS***»»*«** 1 m**«**«****»**************** < * j »*«****** ,s ***"***; 
c * 


MANIFOLD 
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S9S 

594 

597 

599 

599 

600 
601 
602 
605 

604 

605 

606 
607 


610 

611 

612 

615 

614 

615 

616 
617 
619 

619 

620 
621 
622 


C * FMX SIH£ PATTERN MANIFOLD 
C « 

C tttiimtlMMMtmUMUIl 
5000 DEF FNX<T> 


5005 FNX»D3*ADS<SIN<I5*T*lE-4*04)> 

5090 FNCNP 

c -- 

C * FNY RAUF PATTERN MANIFOLD I 

C * * 

Iioo*SeF*?Nr<T>*******”************************** ********************** 

5105 FNY»D4*T+P3 
5110 FNENP 

C J FNZ USER DEFINABLE MANIFOLD# NOW SET UP AS TRAPAZ01DAL PATTERN. * 

|« ? 3*g|rpi^r«s^e^r^*sr5r^5r*******“* M *********« : 


5155 IF T>D3 THEN IF TX8333.33-D41 THEN 5170 ELSE 5180 

5140 FNZ»<DS/D3)*r 

5145 GO TO 5105 

5170 FNZ«<DS/D4)*<8333.33-T> 

5175 GO TO 5185 
5160 FNZ-PS 
5185 FNEND 
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C * 

C * TIME THRESHOLDING ROUTINE 

C * 

C « CHOICES FOR SOURCE OF TIMES: 

C * 'THIS* -USES TIMES TYPED IN DURING INITIALIZATION OR 
C « PLACED IN THIS HALF-CYCLE DURING A PREVIOUS 

C t CALCULATION. 

C * 

C * 'PREVIOUS'-IF HALF-CYCLE *H* WAS SPECIFIED* THE TINES 
C * CALCULATED FOR HALF-CYCLE N-l ARE EMPLOYED FOR 

C * FOR THE PRESENT HALF-CYCLE'S CALCULATIONS AS WELL. 

C * 

C * FOR HALF CYCLE l* 'PREVIOUS HALF-CYCLE' IS NUHRER 4* 

C * 

C * DEFAULT*'THIS'*'-2' 

C * ZERO BREAKS* SIGNIFIED BY TYPING IN BREAK TIME *0 IN 
C * INITIALIZATION* IS A LEGITIMATE PATTERN. 

C * 

C ****y***«**st*«t«****v*«**«ta**s*x*x«********s********f«***x****x»v 

4000 REN TIME THRESHOLDING ROUTINE 

4001 PRINT ' ' 

4003 GO TO 6070 
400S T*T+S0 

4010 IF T<S(V1»G3) AND S<VlrG3>00 OR S<V1*G3>»0 THEN 4015 ELSE 4025 
4015 GOSUB 14335 

4018 IF Al-250 THEN IF K9ol THEN 404S 
4020 IF K?Ol THEN 4005 ELSE RETURN 
4025 IF G3>25 THEN 4040 
4030 GOSUB 14445 
4035 GO TO 4018 

4040 'OVER 25 BREAKS ATTEMPTED.' 

4045 PRINT 'CALCULATIONS HALTED AFTER'*A1!' POINTS.' 

4050 PRINT 'ATTEMPTING TO OUTPUT THESE DATA MAY CRASH PROGRAM. 'I 
4055 PRINT 'TRY FRESH COMPUTATION.' 

4040 RETURN 

4070 PRINT 'USE TIMES FROM THIS HALF-CYCLE OR PREVIOUS HALF-CYCLE.' 

4075 PRINT 'INPUT "THIS" OR "PREVIOUS"'! 

40S0 INPUT A« 

40?O IF A»*'THIS' OR AX*'-2' THEN 4005 
4095 IF A*<>'PREVIOUS' THEN 4075 
4100 IF Vl«l THEN G4«4 ELSE G4-V1-1 
4105 FOR G5-1 TO 25 LET SCV1rG5>-S<G4*GS> 

4110 GO TO 4005 


* 
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PITS-t5 


447 


470 

471 

472 

473 

474 

473 

474 

477 

478 
477 

480 

481 

482 

483 


487 


489 

490 

491 

492 

493 

494 

493 

494 

497 

498 

499 

700 

701 

702 

703 

704 

705 
704 

707 

708 

709 

710 

711 

712 

713 

714 

713 

714 

717 

718 

719 

720 

721 

722 

723 


C ******: 

c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 

C 8 

c * 
c * 
c * 
c * 
c * 
c * 

C 8 
C 8 
C 8 
C 8 
C 8 
C 8 
C 8 

c *********************** V«**¥'H***#******8**f*W**********«***'l**1t** 

8000 REM OUTRUT CONTROL ROUTINE 

8002 IF R<1*3>»0 THEM 0003 ELSE 800S 

8003 PRINT 'HALF-CYCLE 1 HAS NO DATA* OUTPUT FORBIDDEN.' 

8004 RETURN 

8005 PRINT ' ' 

8010 PRINT 'UHAT OUTPUT OPTION DO YOU WANT'I 
8020 INPUT V 

8030 IF ZNTCVIOV THEN 8010 
8040 IF V—2 THEN V-33 
8050 V2-MOO<V*IO> 

8040 IF V2*-*0 OR V2! 3 OR V>33 THEN 8010 
8070 IF V-0 THEN RETURN 
8080 V«<V-V2>/10 

8085 REM U2"PRINT OPTION* V-PLOT OPTION. 

8087 PRINT ' ' 

8090 PRINT 'HOU MANY HALF CYCLES ARE TO BE OUTPUT'I 
8100 INPUT VI 
8105 PRINT ' ' 

8110 IF V1:MNT<V1) OR ABS<V1X1 OR Vt>4 THEN 8090 
8120 IF VI—2 THEN Vl-t 
8130 FOR K»1 TO VI 

8135 IF R(k*3)*l THEN 0190 ELSE IFR<Kr3>—1 THEN 0155 
8140 PRINT 'HALF CYCLE 'FM' CONTAINS NO INFORMATION.' 

8145 PRINT 'OUTPUT FEWER HALF CYCLES.' 

8150 GO TO 8090 

8155 PRINT 'HALF CYCLE ' Jk*'CONTAINS INFORMATION UNRELATED' 

8140 PRINT •TO HALF CYCLE 1. IF THIS IS INTENTIONAL*' 

8145 PRINT -ENTER "YES"* OTHERWISE ENTER ANYHIING ELSE.' 

8170 INPUT V* 


OUTPUT ROUTINE 

options: 

I) FULL PRINT OF CHARGING CURVE AND PARAMETER DUMP. 
2> PRINT rr-CAk VOLTAGE AND PARAMETER DUMP. 

3) PARAMETER DUMP ONLY. 

10) MINIPLliT ONLY. 

20> PEPSUB ONLY. 

30) BOTH PLOTS. 

II ) 1 > + 10 ) 

12 ) 2 > + 10 ) 


33) 3) + 30) 

DEFAULT (-2) IS OPTION 33-FULL PLOT AND MINIMUM PRINT. 
SCALING options: 

-2 500 MA AND 15 KV FULL SCALE 

1 MAXIMUM DATUM-FULL SCALE 

2 FULL SCALE - PEAK TRANSFORMER VOLTAGE 

3 USER SET FULL SCALE 
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724 2173 IF V«-'YES' OR V*»'Y' THEM 0190 ELSE 0180 

725 8100 PRINT 'RETURNING TO CONTROL ROUTINE.' 

720 8185 RETURN 

727 8190 NEXT K 

728 8193 U7-V1 

729 8195 PRINT 'INPUT TITLE. 2" GIVES DEFAULT.' 

730 8200 INPUT U2* 

731 8203 PRINT ' ' 

732 8205 IF U2««'-2' THEN 8210 ELSE 0220 

733 0210 U2«*STRt<Zltl> 

734 0215 U2»-'SPARK PATTERN '+U2f 

735 8220 IF V2-0 OR V2»3 AND V<* 0 THEN 8200 

730 8223 IF V-0 AND V2-3 THEN 8240 

737 0230 GOSUB 11005 

738 8240 IF V-0 AND V2O0 THEN V2-3 

739 8243 IF V-0 AND V2-3 THEN GOSUB 11005 

740 8250 IF V-0 THEN RETURN 

741 8255 REN PLOT SETUP STARTS HERE. 

742 8258 PRINT ' ' 

743 8260 PRINT 'CHOOSE PLOT VARIABLES.' 

744 8262 PRINT 'ANSWER "YES" OR'* 

745 0265 PRINT ' "Y" FOR EACH PLOTTED VARIABLE DESIRED.' 

746 8270 PRINT ' ' 

747 8275 PRINT TAB<10)I'CAPACITOR VOLTAGE'* 

748 8280 INPUT VI* 

749 0283 IF V1*«'YES' OR V1*-'Y' OR Vl*-'-2' THEN V3-1 ELSE V3-0 

750 0290 PRINT* TAB< ID*'CHARGING CURRENT'* 

751 8295 INPUT VI4 

752 0300 IF V14«'YES' OR V14»'Y' OR Vl*»'-2' THEN V4-1 ELSE V4-0 

753 0305 PRINT TAB<15)*'XMFR VOLTAGE'* 

754 8310 INPUT Vlt 

755 0315 IF V14-'YES' OR Vlt-'Y' THEN V5-1 ELSE V3-0 

756 8320 V6-V3+V4+U3 

757 8325 IF V6-0 THEN 8260 

750 0328 PRINT ' ' 

759 8330 'ENTER SCALING OPTION'* 

760 8335 INPUT V7 

761 0338 PRINT ' ' 

762 8340 IF V7«;l OR V7>3 OR V70INTCV7) THEN 8345 ELSE 8350 

763 8345 IF V7—2 THEN 0350 ELSE 8330 

764 0350 A1-A2-A3-0 

765 8355 FOR K-l TO VI 

766 8360 A9*R<K*l) 

767 8362 FOR Kl-1 TO A9 

768 8365 IF E(K»K1).= A1 THEN A1-£(K*K1) 

769 8370 IF I(KrKirA2 THEN AZ-I(KrKl) 

770 8375 IF I<K>K1KA3 THEN A3»I<K»K1) 

771 8300 NEXT K1 

772 0385 NEXT K 

773 0390 IF V3-0 OR V5-1 AND E12AI THEN Al-El 

774 8395 IF A3-0 OR V4-0 THEN 8400 ELSE 8410 

775 8400 U5-0 

776 8405 GO TO 8415 

777 8410 IF V4-1 THEN IF V6-1 THEN US-A3 ELSE U5«CA3/A2)4A1*.S 

778 0411 IF V4 1 THEN U5-0 

779 8412 Rrh MUST SET XMIN AND XHAX JUST BEFORE CALLING PEP8UB OR HINIPLOT. 

780 8415 REN SET FULL SCALE 
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•430 IF V4-I AND V6-I THEN U4«A2 ELSE. W4-A1 

•435 IF V7—2 AND V4«| AND V6«l THEN U4*SOO 

8430 JF V7*-2 AND V6M OR V7»-2 AND 0401 THEN U4»15000 

8435 IF V7*2 THEN U4«E1 

8440 IF V7*J THEN 8445 ELSE 8480 

8445 IF V4*V4 THEN 8459 

8448 PRINT FULL SCALE VOLTAGE*'* 

8453 INPUT U4 

8455 IF 44v«0 THEN 8448 

8454 IF V4v*l THEN 8445 

8458 PRINT ‘FULL SCALE CURRENT**' I 

8440 INPUT A3 

8443 IF A3v*0 THEN 8458 

8445 IF V40V4 THEN A2»A2/2 ELSE U4-A3 

8470 IF V40V4 THEN US«(A3/A2)*U4*.S 

8475 IF V4*,>V4 THEN AI-U4 

8478 PRINT * * 

8480 IF W4«I AND V4-1 THEN W34*'MILLIA«PERES' ELSE U3*»‘V0LTS' 
8485 PRINT ‘IF SATISFIED WITH PLOT SETUP* ENTER' 'YES' 'OR' 'Y" ' 
8400 PRINT ‘OTHERWISE* YOU CAN UO BACK AND TRY AGAIN.' 

8495 PRINT ‘ENTERING "ABORT"TERNINATES THIS PASS OF OUTPUT.' 
8500 PRINT 'SATISFIED' i 
8505 INPUT VI» 

8510 IF U1S*'AB0RT' THEN RETURN 

8515 IF V1*»'YES'0R V1*«'Y' OR Vl*»'-2' THEN 8520 ELSE 8240 

8530 IF V«2 THEN 8490 

8523 REH SETUP FOR MINIPLOT 

8535 FOR K*t TO VI 

8530 U4»R(K»1> 

8535 U2*S333.3*R<K*4> 

8540 U3*V2-3333.33 
8545 FOR J«1 TO V4 

8550 IF J*I THEN UtM'NEU' ELSE W1«*'0V£RLAY' 

8555 IF «f*V6 THEN F<2)*0 ELSE FC2)«1 

8540 IF J*1 THEN 8545 ELSE 8570 

8545 FOR Jl«l TO U4 X(JIJ»T*KrJ1 )+U3 

8570 IF J«1 THEN IF V3~l THEN 8420 

8575 IF V4»I THEN IF J»2 AND V3*t OR J-l THEN 8435 

8580 REN PLOT HALF CYCLE 

8585 FOR Jl»l TO 40 

8590 X(J1)*JI*138.8889+U3 

8595 IF 15* 1 THEN YCJ1)«£1 *SIN< IS*J1 *1.3888889E-4) ELSE YCJ15-E1 

8400 NEXT Jt 

•405 W4*40 

8410 Ul«40 

8415 GO TC 9445 

8430 U1»10 

8425 FOR Jl~l TO U4 YCJl)«£«K*J1) 

8430 GO TC 8445 
8435 Ul*14 

8440 IF V4*l AND V4«l THEN 8440 
8445 V8*U4/A2«.S 

8450 FOR Jl*«l TO U4 Y(J1 )-I(K#J1 >*V8 
8455 GO TO 3445 

8440 FOR Jt*t TO U4 Y<J1 )-I<K*Jl) 

8445 G0SU3 10000 
8470 NEXT J 
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830 

•39 

840 

841 

842 

843 

844 

843 

844 
847 


840 

830 

831 
852 

833 

834 


836 

837 

838 

839 
860 
861 
862 

863 

864 

863 

864 
867 


869 

870 

871 


872 

873 

874 
•75 
874 

877 

878 
•79 


881 

882 

883 

884 


887 

888 

889 

890 

891 


-2' THEN 8690 ELSE 8913 


8475 NEXT K 

8680 REM PEPSUB CALLTNG SEQUENCE 

8685 IF V,*l THEN 8686 ELSE 0913 

8686 PRINT 'PRQCFED UITH PEPSUR'5 

8687 INPUT Vtt 

8490 W-O lt *' Y£S ' °* Vtt- 

I™ ro V1 u< * u<stR<Kii> 

8703 U2»VI*8333.333 
8710 FOR J*1 TO V6 

JS2 If HW™ jhIh^Ts eLX U1 *'' oueRLAr ' 

I™ wV.S'SW 30 ELSE 8755 

8735 V8-R(KpI> 

8745 V7-V7+V8 T ° X< ^ 1+V7, * T<K ' jj> + <»«'M*8333,33 

8730 NEXT K 

It J * 1 TH£M IF V3 * 1 ™ EN 

lltl RCH V ?:ir T H HE u N r r crc:is AN ° V3 * 1 ° R J “‘ THCH 8889 

8770 V7-V1X60 
8773 FOR Jl*l TO V7 
87B0 X<J1)■Jit138*8889 

?7W «xf S j! ™ EN r ‘ J1, * £1 * RBS 'SIN(IS*Jl«I.38e888»e-4 ) J H.S6 YCJi)*£l 

8793 U4*V7 

8800 Ul-1 

8803 GO TO 8905 

8810 Wl*-9 

8815 V7*0 

0820 FOR K*1 TO VI 

8823 V0«R<K»1) 

sals T0 88 

0840 NEXT K 
8045 GO TO 8903 

s; w * 1 them ui ~ 9 else wi -« 

8840 V7»0 

8845 FOR K«1 TO VI 

8870 V0«R(K>1> 

8873 IF V4*l AND V6*l THEN 8890 

?SS§ 00%i : 'Van w8 

T0 va TtJ,w »- t(K ’ J1> 

8900 NEXT K 

8903 GOSUD 9000 

8910 NEXT J 

8913 IF V220 THEN V2-3 

8920 IF V2>0 THEN COSUB 11000 

8923 RETURN 
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892 

893 

994 

995 


997 

999 


900 


002 

903 

004 

90S 

TOO 

T07 


T10 

911 

912 
915 

914 

915 
919 

917 

918 
TIT 
T20 
T21 
972 
975 

974 

975 


924 

927 

T20 

929 

030 

T31 

T32 

T33 

T34 


030 

037 

938 

030 


041 

042 

043 

044 

045 

044 

047 

048 


C *****«t«t****t*t***t*t******t**«****a*****«**********9***«»****tt*** 
C 4 

C 4 PEPSOOf APPROPRIATELY HARDWIRED. 

C 4 

0000 RE* MODIFIED VERSION OF STUELAND'S PEPSUD 
0002 REM TAKES JP TO 1000 POINTSI SPECIFIC 
0018 IF Z1.0 THEN 9116 
0020 LET Z2*0 

0022 LET 211-' ZZZZZZXZZZZZZZZZZZZZZZZZ, 

9024 LET Z3»*'t.♦*♦♦#♦♦**» 

0028 ' A J ENABLE HARD COPY PLOTTING' > 

0030 INPUT 22* 

0032 IF Z2*»'-t' THEN 9686 
0034 IF 22**'-2' THEN LET Z2*«'YES' 

9034 IF Z2**'N0' OR Z2*-'YES' THEN 0042 


9038 ' ' 

0040 60 TO 9028 

9042 IF 221*'NO' THEN LET Z7S*' ' ELSE LET Z7**'8GSP»PT' 
0044 IF Z2**'N0' THEN 9078 
9046 Z2*-'SMALL' 

9058 Z2-10.8 
0064 Z6«*'YES' 

9078 ' ' 

0082 OPEN PLOT FOR SYMBOLIC OUTPUT AS FILE 9 
0084 LET Z9*9 

0088 IF Z7*<>' ' THEN PRINT ON 9 IN IMAGE Z1*1Z7* 

9000 IF 27**' ' THEM 9110 
0104 LET ZS**'PLOTTER PEN/LIO' 

0108 PRINT ON O IN IMAGE Z1*:Z5* 

0110 LET Z2**'0XGT CHEMISTRY*UALTERS.BIGG£R-PEP' 

0112 PRINT ON 9 IN IMAGE Z1*JZ2* 

0114 PRINT ON 9 IN IMAGE 'ZX.ZZZZ'iZ 2 

9116 LET Zl-Zl+1 

0117 LET XS-0 

9118 IF Z4*S THEN 9704 

9120 LET Z9-0 

9122 Z»*U1* 

9132 LET Z3*0 

9134 IF Z**'NEU' THEN Z3*l 

9136 IF Z**'OVERLAY' THEN LET 23*2 

9140 IF Z^'DONE' THEN LET Z3*4 

9142 IF Z**'CLOSE' THEN LET Z3*4 

9144 IF Z3*0 THEN 9708 

9146 IF Z3*2 AND Z4*2 THEN 9140 

9148 IF Z3*V2 THEN 9160 

9150 IF Z3*2 AND Z4*l THEN 9140 

9152 ' ' 

9154 '44Y0U CANNOT DO AN OVERLAY WITHOUT AT LEAST' 

9154 ' ONE NEU PLOT ' 

9158 GO TO 9790 
9160 LET Z9-Z3 

9142 OH Z3 GO TO 9148»9t64,9168»9466 
9144 PRINT ON 9 IN IMAGE 21*1'OVERLAY' 

9166 GO TO 9274 

9168 PRINT ON 9 IN IMAGE Z1*:'NEU PLOT' 

9186 LET Z9*l 


«« « 




847 


3ITS-20 


949 

930 

931 

932 


933 

934 

933 

934 
937 
939 
939 

960 

961 

962 

963 

964 

963 

964 
947 
96B 
949 

970 

971 

972 

973 

974 
973 

976 

977 


900 

991 

992 

993 

994 
993 

996 

997 


990 

991 

992 

993 

994 


996 

997 


WOO 

1001 

1002 

1003 

1004 

1005 


9192 REM — TITLE — 

9194 IF Z?<*0 THEN 9216 
9198 Z2«*U2« 

9202 IF Z2*»'-2' THEN 9216 
9212 PRINT ON 9 IN IMAGE 21*:Z2* 

9214 GO TO 9224 

9216 PRINT O.r 9 IN IMAGE 'ZXZZZ '! 'PLOT 't 
9218 PRINT ON 9 IN IMAGE 'ZXXXZ'tZt 
9220 REM — LABEL f OR X-AXIS — 

9222 IF Z?<*0 THEM 9244 

9224 22**'TIME IN MICROSECONDS' 

9240 PRINT ON 9 IN IMAGE Z1*JZ2* 

9242 GO TO 9250 

9244 PRINT ON 9 IN I.MAGE Z1*!'X AXIS' 

9246 IF Z9<*0 THEN 9268 

9248 REM — Y-AXIS LABEL — 

9230 Z2«*U3* 

9264 PRINT ON 9 IN IMAGE Zl*JZ2« 

9266 GO TO 9274 

9268 PRINT ON 9 IN IMAGE ZlC'Y AXIS' 

9270 IF Z9<*0 THEN 9298 

9272 REM — SYMBOL AT EACH DATA POINT —. 

9274 Z0—2 

9298 PRINT ON 9 IN IMAGE '%X'J'-9' 

9300 IF Z?<-0 THEN 9338 

9302 REM — LINE TO CONNECT DATA POINTS — 

9304 Z7*Ul 

9320 IF Z7—2 OR Z7—3 THEN 9338 
9322 IF Z7<0 THEN 9338 
9334 PRINT ON 9 IN IMAGE 'XX'tZ7 
9336 GO TO 9346 

9338 PRINT ON 9 IN IMAGE 'ZX' t '-9' 

9340 IF Z9<0 AND Z3*2 THEN 9632 

9342 IF Z9<*0 AND 2302 THEN 9384 

9344 REM — MAXIMUM AND MINIMUM — 

9346 IF Z3*2 THEN 9574 
9348 Z8-U2 
9362 Z7*U3 

9376 IF Z7«Z8 THEN PRINT 

9377 IF Z7*Z8 THEN ZV—l 

9378 IF Z9—1 THEN 9384 
9380 PRINT ON 9 IN IMAGE Z3*J Z7»Z8’ 

9382 GO TO 9390 

IN IMAGE 'ZZX'J'O O' 


** THE TIME MAX. AND HIN. WERE EQUAL-ERROR. 


9384 PRINT ON 9 
9386 CO TO 9432 
9388 REH 
9390 Z4*0 
9392 Z8*U4 
9410 Z7-U5 

9420 IF Z70Z8 THEN 9428 


MAX S MIN ON T AXIS 


9422 ' ' 

9423 '** VERTICAL AXIS MAX. AND MIN. MERE EQUAL-ERROR.' 
9425 Z9—1 

9427 GO TO 9432 

9428 PRINT ON 9 IN IMAGE Z3*:Z7*ZB 
9430 GO TO 9436 

9432 PRINT ON 9 IN IMAGE 'XXX': J 0 0' 
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100* 9434 REM — PAGE SIZE — 

1007 9436 IF 27*-' ' AND Z9'0 THEN LET Z9-0 

1008 9437 IF Z9>>0 THEN 9483 

1009 9430 Z2*»'NUMHCR' 

1010 9444 IF Z2*»'-I'QR Z2**'-2' OR Z2**'-3' THEN 9488 

1011 9444 IF Z2*»'NUMBER' THEN 9496 

1012 9488 PRINT 0»: 9 IN IMAGE 21*:'NUMBER' 

1013 9490 PRINT ON 9 IN IMAGE Z3*JZ2tZ2 

1014 9492 IF Z9*-l THEN 9432 

1015 9494 GO TO 9574 

1016 9496 PRINT ON 9 IN IMAGE Zl*:'NUMBER' 

1017 9497 REM SET LENGTH OF X OR TIME AXIS 

1018 9498 Z4«<Z2-3>*U7*3 

1019 9500 IF Z6>50 THEN Z6*50 

1020 9502 IF Z6-50 THEN PRINT '*4 TIME AXIS TRUNCATED. * 

1021 9514 REM SET LENGTH OF Y OR ELECTRIC AXIS.' 

1022 9516 Z7«Z2 

1023 9538 PRINT ON 9 IN IMAGE Z3*:Z4»Z7 

1024 9574 Z4»U6 

1025 9576 IF Z4<2 OR Z4>1000 THEN 9578 ELSE 9590 

1026 9578 PRINT '** LESS THAN 2 OR MORE THAN 1000 POINTS TO BE PLOTTED.' 

1027 9560 PRINT ' ABORT PLOT.' 

1028 9582 GO TO 9632 

1029 9590 IF 290-1 THEN PRINT ON 9 IN IMAGE Zl*: 'DATAF0LL0U5' ELSE 9632 

1030 9592 FOR 25*1 TO Z4 

1031 9594 PRINT ON 9 IN IMAGE Z3*:X<Z5>♦Y<Z5> 

1032 9594 NEXT Z5 

1033 9598 LET Z4*Z4+1 

1034 9600 GO TO 9634 

1035 9432 PRINT ON 9 IN IMAGE Zl*:'EARLY ESCAPE' . 

1034 9434 IF Z4<3 THEN LET Z?»-l 

1037 9634 PRINT ON 9 IN IMAGE 'ZZZZX':'-1 -l' 

1038 9438 IF Z9—1 THEN PRINT ON 9 IN IMAGE Zl*:'NODATA' 

1039 9440 IF Z90-1 THEN PRINT ON 9 IN IMAGE Zl*5 'ENDOFDATA' 

1040 9642 LET Z4*0 

1041 9644 REM — END OF ONE PLOT ~ 

1042 9446 REM — CHECK THE STATUS OF THE PLOT — 

1043 9648 REM — RETURN FOR 'NEU' — 

1044 9450 IF 290-1 THEN LET 24*23 

1045 9451 IF Z?*-l AND Z3«2 THEN LET 24*1 

1046 9652 IF Z9—1 THEN 9686 

1047 9654 IF 23-'2 THEN 9o46 

1048 9642 RETURN 

1049 9664 REM — 'RETURN' FOR LEAVING BASIC — 

1050 9466 LET Z2«-'<?E0F' 

1051 9668 PRINT ON 9 IN IMAGE Z1«:Z2* 

1052 9470 ' ' 

1053 9672 CLOSE 9 

1054 9474 'FILE HAS BEEN CLOSED' 

1053 9474 IF Z**'CLOSE' THEN 9496 

1056 9678 'EXIT FROM BASIC' 

1057 9680 EXEC'UASG*A PLOT. • ' 

1058 9682 EXEC '0ADD»P PLOT. • ' 

1059 9484 STOP 

1040 9686 IF Z3nM THEN LET Z4-Z3 ELSE LET Z4-0 

1061 96B8.' ' 

1062 9690 'ESCAPE RETURN' 
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1063 9692 ' ' 

1064 9494 RETURN 

1063 9496 'NO EXIT FROM BASIC' 

1066 9498 'THIS SHOULD BE THE LAST RETURN FROM THE PEP SUBROUTINE' 

1067 9700 LET Z4-5 

1060 9702 RETURN 

1069 9704 'FILE t’AS CLOSED ON THE LAST CALL' 

1070 9706 'NO MORE PEPSUD PLQTS--SORRY.' 

1071 9708 GO TO 9488 

1072 9788 PRINT 'ILLEGAL PLOT TYPE! MUST BE NEU* OVERLAY* PONE* OR CLOSE*' 

1073 9790 29—1 

1074 9792 IF 24>»1 THEN 23-2 

1073 9794 PRINT ON 9 IN IMAGE ZltJ'NEU PLOT' 

1076 9794 00 TO 9214 








850 


PITS-23 


1077 

1078 
1070 

loeo 

1081 

1082 

1083 

1084 

1085 
1088 

1087 

1088 
1080 

1090 

1091 

1092 

1093 

1094 

1095 
1098 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 
1108 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 
1118 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 

1125 
1128 

1127 

1128 

1129 

1130 

1131 

1132 

1133 


*St«**tS*ft«t*******»«as******»***** 

* 

* NINXPLOT f APPROPRIATELY HARDWIRED. 


**s* 


C 
C 

c 
c 

10000 REM THIS IS A MODIFICATION OK S Kit LAND'S MINIPLOT. 

10003 REM HARVJIRING IS SPECIFIC TO PROGRAM CHARJUP 
1000V LET 20*20fl 
10012 LET Y2t«* ’ 

10015 IF Z0>1 THEN 10027 
10018 DIM Zi6Q*30) 

10021 LET Y8*»* * 

10024 LET Xl*30 
10027 Yl«»Ut* 

10038 IF Yl*»'-2' THEN LET Y1«**NEU* 

10039 IF Yl*«*-1' THEN 10933 

10042 IF YU*'OVERLAY* AND Y8*» * NEW * THEN 10188 
10045 IF YlfO*OVERLAY' THEN 10080 
10048 ' ’ 

10051 *ff YOU CANNOT HAVE AN OVERLAY WITHOUT AT LEAST ONE NEK PLOT* 
10054 ' SHOOT THE PROGRAMMER— IT* *S HIS FAULT!!!* 

10058 Yl***-1* 

10057 GO TO 10933 

10080 IF Y1*<>*NEU* THEN 10054 

10081 LET Y8*»* * 

10083 FOR Y7-1 TO XI 

10084 FOR T8»l TO 80 
10089 LET Z<Y8*Y7)*5 
10072 NEXT Y8 
10075 NEXT Y7 
10078 LET Y7»5 


10081 Y2«*'YES* 

10090 REM SET TITLE 
10100 Y3t*U2« 

10120 REM X AXIS LADLE 

10130 Y4*«*TIME IN MICROSECONDS* 

10140 REM Y AXIS LADLE 
10150 YS«*U3« 

10188 REM SYMBOL—ENTERED AS NUMERICAL EQUIVALENT* 

10189 REM SEE DASIC MANUAL P. 7-5 
10192 Y8-1 

10195 Y7«U1 

10198 IF Y7«14 THEN Y8»-*I* 

10201 IF Y7*10 THEN Y8»«*E* 

10204 IF Y7;>14 AND Y7<»10 THEN YA*»*** 

10207 Xt*Y8i 

10231 IF YU-'OVERLAY* THEN 10398 

10234 REM MAX X AXIS 

10237 Y2*U2 

10252 REM MIN X AXIS 

10255 Y1-U3 

10284 IF Y1„'Y2 THEN EXCHANGE Y1.Y2 
10287 IF Y2>Yt THEN 10278 

10270 *4« THE MAX AND MIN X (TIME) CANNOT DE EQUAL* 

10272 * ABORT PLOTS.* 

10273 Tlt»*-1* 

10274 GO TO 10933 


n m * 
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10274 REM MAX Y AXIS 
10270 Y4*U4 
10201 REM MIN Y AXIS 
10204 Y3-US 

10306 IF Y3:Y4 THEN EXCHANGE Y3*r4 
10300 IF Y4>Y3 THEN 10306 
10312 ' ' 

AHD Hltt Y ELECTRICAL! AXIS CANNOT BE EQUAL*' 

lUolo uO TO 102/2 

10303 REM SET NUMBER OF POINTS 

10396 Y8«U6 

10400 IF Y8<2 OR Y0>25O THEN 10411 ELSE 10423 
10411 '** TOO MANY OR TOO FEW POINTS IN MINIPLQT*' 

10414 GO TO 10272 

10417 REM —-— SORT ARRAYS -—- 

10423 FOR Y9«l TO YO 
10426 FOR Y0«Y9 TO Y8 

10429 IF X<Y9X<X<Y0J THEN 10438 

10432 EXCHANGE X<Y9)rX<Y0) 

10433 EXCHANGE Y<Y9>,Y<Y0> 

10438 NEXT YO 

10441 NEXT Y9 

10444 IF Ylt-'OVERLAY' THEN 10314 

10430 IF Y10Y2 A NO Y30Y4 THEN 10308 
10433 ' ' 

10459 print”' x‘«N-'m * ETUEEM THC L * RGEST * SRflLLEST y-M-UCS IS TOO SJML 

10462 PRINT * X MAX-*' > Y2 

10463 PRINT ' Y MIN»'*Y3 
10468 PRINT ' Y MAX*'pY4 
10471 ' ' 

10474 - ERROR RETURN' 

10477 ' ' 

10508 LET V1*YI-<Y2-Y1)/S? 

10309 LET Y3*Y3-<Y4-Y3>/<X1-1) 

10310 LET Y5*<Y2-Y1)/60 
10313 LET Y6*<Y4-Y3J/X1 

10514 IF Y1**'0VERLAY' THEN LET. Yl*Yl-<Y2-Yt>/5? 

10517 IF Yl«*'OVERLAY' THEN LET Y3*Y3-<Y4-Y3)/<X1-1> 

10549 LET X2-0 

10352 FOR Y?*l TO Y8 

10333 IF X< Y9XY1 THEN 10717 

10541 IF X<Y9>.Y2 THEN 10717 

10544 IF XZ 0 THEN 10500 

10547 LET XO*INP< <X< Y9)-Yl)/Y3+.5> 

10570 LET YO<INP<<Y<Y9)-Y3>/Y6+.5> 

10573 IF X0*0 OR Y0»0 THEN 10717 

10576 IF Y0<1 OR YO.XI THEN 10607 

10579 LET Z(X0fY0XY7 

10502 LET X2-Y9 

10S8S GO TO 10717 

10508 LET X3-X<Y9)-X<X2> 

10591 LET X4»ABS<Y<Y9>-Y<X2>> 

10594 IF X3<. < Y5/2) AND XA <Y6/2> THEN 10717 
10397 LET X3<INP<<X< f?>-Yl J/Y3K5) 

10600 LET XA*INP<<Y<YV)-Y3)/Y6h.S) 

10603 IF X4<1 OR X4, XI THEN 10407 
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10406 IF X3-X0 AND X4«Y0 THEN 10717 
10409 IF Z(X3»X4)-S TMFN LET Z<X3fX 4>»Y7 
10412 IF Z<X3»X4>«34 THEN LET 2<X3tX4>«Y7 
10415 00 TO 1071/ 

10407 IF TO '1 OR X4 1 THEN LET X4»l ELSE LET X4«Xl 
10490 IF X2>0 AND Z(X3rl4)\>S AND Z(X3*X4) . 34 THEN 10708 

!mm if Mu — «£• 

‘212’ *2 i2*?«I2S N LCT Z<x0 '«>’ 7 ELSE LET 2<X3.I>.7 
10702 CO TO 10708 

10705 IF X2*0 THEN LET Z(X0»X1>*4 ELSE LET Z(X3»XD«4 
10708 LCT X0-X3 
10711 LET Y0*X4 
10714 LET X2*Y9 

10717 NEXT Y9 

10718 LET Yl*Yl+<Y2-Yl)/40 

10719 LET Y3*Y3+<Y4-Y3>/X1 

10720 IF F<2K>0 THEN 10927 
10723 GOSUB 11950 

10729 IF Y3**'fPL0T*' THEN 10730 

10732 LCT Xf-Y3* 

10733 LET XO*LEN< X*) 

10738 LET VO»INP((72-XOJ/2*.5I 

10741 PRINT TAB<YO )t 

10744 PRINT Xi 

10747 GO TO 10733 

10750 PRINT TAB<30)I'PLOT 'IZO 

10733 PRINT)' X't 

10734 FOR X0»1 TO 5 

10739 PRINT '+-' | 

10742 NEXT XO 

10745 LET Xt-' 

10748 LET Y*«Y3* 

10771 LET YO*LEN<Y<) 

10774 LET XO»INP<<Xl-YO>/2+.5> 

10777 LET Y7t«ADDt<XS*YS*X0> 

10780 LET Y9-4 

10783 FOR YO«t TO XI 

10784 LET ' 

10789 FOR X0»1 TO 40 
10792 LET X2-X1+1-Y0 
10795 LET Y0*ZeX0fX2) 

10798 LET X«*PUT»<Yf»XO»Y8) 

10801 LET Y4-X* 

10804 NEXT XO 
10807 LET Y«-Y7* 

10810 LET XO*CETfYf fYO) 

10813 LCT Y*»' ' 

10814 LET Y4t«PUT4CYtFl»X0) 

10819 PRINT Y4»> 

10822 LET Y9»V*>fl 
10825 IF Y9-5 THEM LET Y9-0 
10828 IF Y0'*1 AND YO XI THEM 10040 
10031 IF YO-1 TMFN LCT Y8-Y4 ELSE LET YG*Y3 
10834 PRINT IN IMAGE 'f.MMM'lY Oi 
.10037 GO TO 10849 
10840 IF Y9<*0 THEN 10833 
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1248 10843 LET X0*»Y4-<Y0-l>*Y4 

1240 10644 PRINT IN IMAGE '#• MMH' 1X0# 

1250 10040 PRINT '+*5 

1251 10652 CO TO 10838 

1252 10855 PRINT ' i'f 

1233 10858 PRINT X* 

1254 10841 NEXT YO 

1255 10844 PRINT # X'l 

1254 10047 FOR X0»1 TO 5 

1257 10870 PRINT '♦- 

1258 10873 NEXT XO 

1259 10874 FOR XOM TO 4 

1240 10879 LET Y9*Ylf12*X0*Y5 

1241 10882 LET Y8«lO*XO*12-4 

1242 1088S PRINT TABCY8> f 

1243 10888 PRINT IN I MACE 'I.M|ltr;Y?f 

1244 10891. NEXT XO 

1245 10894 ' ' 

1244 10897 PRINT TABf4> t 

1247 10900 PRINT IN IMAGE '».*##♦**'JY1 t 

1248 10903 PRINT TAB< 43 > * 

1249 10904 PRINT IN IMAGE'*.*#MM'?Y2 

1270 10909 LET X*-Y44 

1271 10912 LET XO«LEN<X*> 

1272 10915 LET YO*INP( <72-X0)/2+.5) 

1273 10918 PRINT TAB< Y0> IY«*t 

1274 10921 ' ' 

1275 10924 'NORMAL RETURN' 

1274 10927 LET Y8*«'NEW' 

1277 10930 RETURN 

1278 10933 ' ' 

1279 10934 'ESCAPE RETURN' 

1280 10939 RETURN 
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1201 C **jrt**t*«***t**i*t*«****t**a**4*«»«K**s*******tt****«t«*««**tt**«**« 

1202 C * t 

1203 C * PRINT ROUTINE. * 

1204 C * t 

1205 C 

1204 tlOOO REN PRINTED OUTPUT ROUTINE 

1207 11005 AS»U2* 

1200 11010 G0SU8 11950 

1209 11015 V3*LEN<A$) 

1290 11020 PRINT TAB<3S-INT<V3/2+.5)>fU2* 

1291 11025 IF F<1)»1 THEN PRINT ON 73T*8<41-IMT<U3/2+.S> >?U29 . 

1292 11030 FOR Kl-l TO 2 PRINT ' ' 

1293 11033 IF FUl-l THEN PRINT ON 7 IN FORM 'W't 

1294 11040 FOR K«1 TO Vt 

1293 11043 IF KM THEN COSUB 11930 

1294 11030 PRINT TABC29)*'HALF-CYCLE'?R<K*4> 

1297 11035 IF FU>«1 THEN PRINT ON 73TABC33) S'HALF-CYCLE')R<K»4) 

1290 11040 FOR M»1 TO 2 PRINT ' ' 

1299 11043 IF FC1>»1 THEN PRINT ON 7 IN FORH 'W'S 

1300 11070 ON U2 GO TO U07S» 11310» 11485 

1301 11073 V5«»'2<4Z.Z 2B5X 1B4Z.2Z5B)4Z'Z 2B2Z 184Z.ZZ' 

1302 11900 Va»*'3<4Z.S 3BSX 2B4Z.2ZSB)' 

1303 11083 FOR M*l TO 3 

1304 11090 K2*<Kl-l)*24 

1305 1109S PRINT TA8<K2>*' T E 1*1 

1304 11100 K2*K2+CK1-1>*4 

1307 11105 IF FCiJ*1 THEN PRINT ON 73TAB(K2>1 # T E X'l 

1300 11110 NEXT K1 

1309 11115 PRINT ' ' 

1310 11120 IF F(1>»1 THEN PRINT ON ?J* * 

1311 11125 M3*H0B<R<K*1>»3> 

1312 11130 V4«INP<R<Kp1)/3+.001) 

1313 11135 REN +.001 ELIMINATES ROUNDOFF ERROR. 

1314 11140 IF V3*0 THEN U3-V4 ELSE V5*V4+1 

1315 11145 K9«V3+2#V4 

1314 11150 FOR Kl*l TO V4 

1317 11155 B1»T(K»K1) 

1318 11140 82«E<K»K1) 

1319 11145 B3*I(K»K1> 

1320 11170 B4-r<k'Kl+US) 

1321 11175 B3*E(K»Kl+V5) 

1322 11100 B4-I<K'K1+VS> 

1323 11105 B7*T<K»K1+K9) 

1324 11190 B0»E(KtKlTK9> 

1325 11195 B9-I(K.KlfK9) 

1324 11200 PRINT IN FORM V5t:81*B2>B3#B4»B5>B4.B7»&8r8? 

1327 11205 IF F(1)*1 THEN 11210 ELSE 11215 

1320 11210 PRINT ON 7 IN FORM V4*S81»D2»B3f B4*BS.B6»B7»B0*B9 

1329 11220 IF V3»0 THEN 11283 

1330 11225 Bl"T<ktUS> 

1331 11230 D2*£iK»VS) 

1332 11235 B3«I<K*V5> 

1333 11240 ir V3-1 THEN 1I24S ELSE 11240 

1334 11245 PRINT IN FORM VS*:pl»»2»BJ 

1335 11250 IF FU)*I THEN PRINT ON 7 IN FORM V4«JB1*B2.B3 

1334 11255 GO TO 11295 

1337 11240 B4«T(K«2*V5> 
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1333 11265 B5*E(K*2tV5> 

1339 11270 B6«I(K.2?V5> 

1340 11275 PRINT IN FORM V3i1*1 rB2r»3.B4,BS»B6 

1341 11200 IF F(l)«l THEN PRINT ON ? IN FORM V6s:Bl>B2'B3'B4»B5>B6 

1342 11285 COSUB 12295 

1343 11290 CO TO 11695 

1344 11295 FOR MM TO 5 PRINT ' ' 

1345 11300 IF F(l)«l THEN PRINT ON 7IN FORM # \\\\\'I 

1344 11305 RETURN 

1347 11310 PRINT TA8(29>rBREAK VALUES' 

1348 11315 PRINT ' ' 

1349 11320 PRINT TA3U7M 'BREAK' ITA8<25>I'VOLTAGE'ITAB(35) I'CURRENT'ITAB<45>» 

1350 11325 PRINT 'TIME' 

1331 11330 PRINT ' * 

1352 11335 IF F(1K>1 THEN 11365 

1353 11340 PRINT ON 71 TAB<35)»'BREAK VALUES' 

1354 11345 PRINT ON 71' ' 

1335 11350 PRINT ON 71TAB<23> I 'BREAK' t TAB<31>I'VOLTAGE'>TAB(41)> 

1356 11355 PRINT ON 71 'CURRENT' *TAB<51)) 'TINE' 

1337 11360 PRINT ON 71' ' 

1358 11365 V5*-'1?BXX SBSX 383X.ZX 3B4X.X' 

1359 11370 V6»-'258XX 585X 3B5X.ZX 384%.2' 

1360 11375 J2*K 

1361 11380 GOSUB 3095 

1362 .11385 A1*R(K*2) 

1363 11390 IF AK1 THEN 11465 

1364 11395 A4»l 

1365 11400 FOR Kt«l TO Al 

1366 11405 A2»S<K'K1> 

1367 11410 A3*R(K»i> 

1368 11415 IF A3-0 THEN 11475 

1369 11420 FOR K2*A4 TO A3 

1370 11425 IF T(KfK2)»A2 THEN 11430 ELSE 11455 

1371 11430 A4*K2+2 

1372 11435 PRINT IN FORM VS*JKt.E(K*K2> rICK»N2) »TCK»K2) 

1373 11440 IF F<l)*1 THEN PRINT ON 7 IN FORH V6*1K1 »E£K »K2> »I <K»K2) »T(K»K2) 

1374 11445 IF A4;A3 THEN 11475 ELSE 11460 

1375 11450 IF Kl-Al THEN 11465 

1376 11455 NEXT K2 

1377 11460 NEXT K1 

1378 11465 COSUB 11295 

1379 11470 GO TO 11695 

1380 11475 'OUT OF POINTS BEFORE ALL BREAKS FOUND.' 

1381 11480 GO TO 11465 

1382 11485 PRINT TAB<20)>'PARAMETER DUMP' 

1383 11490 PRINT ' ' 

1384 11495 V5««'R(FORWARD)-HIMtil R(R£V. BIAS)*ttttttit COJF)* XS.XXXX' 

1385 11500 PRINT IN IMAGE VSHRlrfc2»Cl 

1386 11505 IF F<1>*1 THEN 11510 ELSE 11525 

1387 11510 PRINT ON 71 TAB<34) ) 'PARAMETER BUMP' 

1388 11S1S PRINT ON 71' ' 

1309 11520 PRINT ON 7 IN IMAGE V5*1R1>R2»C1 

1390 &152S V3i*'L<HENRIES)* XXX.XXX GAMMA(DEG)* XXX.XX N BREAKS* XX' 

1391 11530 J2*K 

1392 11535 GOSUB 3095 

1393 11540 J2*R(H'2> 

1394 11545 PRINT IN IMAGE VS«:L1*S4*360/I4»J2 
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1399 

1394 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 
1404 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 
1414 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 
1424 

1427 

1428 

1429 

1430 

1431 


11550 IP FC1>»1 THEM PRINT ON 7 IN IMAGE V545LI tS4*360/l4» J2 
11555 Wi«'20> IIMHIUU b«2» MtttMItM S* •♦♦#*#< 

11540 PRINT IN IMAGE VL*:bJ.Sl-S2 

11545 IF F< 1 >*1 1 HEN f KIN T UN / IN IMAGE WS»:SJ*S1 fS 2 
11570 PRINT 'E< XMFR>*'JEl»rA& <22 >♦'DISCHARGE DURATION-'IT8 
11575 PRINT '10 AT START »‘JR(K»7) 

11580 PRINT '10 AT END *'SR(R»8> 

11585 PRINT 'EO AT START «**R<R»5> 

115«»0 PRINT 'EO AT END «';R(kt4> 

11593 PRINT 'AUG. I<MA> *'tR(h»9> 

11595 IF FUKV1 AND V’*l THEN 114*0 ELSE IF F(1X>1 THEN 11490 
11*00 PRINT ON 75 'E<XMfR»*'?ElS TAD<2.!>« 'DISCHARGE DURATION*'*T8 
11405 PRINT ON 75'10 AT START *'5R(k*7> 

11410 PRINT ON 75'10 AT END *'«R<K»0> 

11415 PRINT ON 75'EO AT START *'?R<Kt5> 

11420 PRINT ON 75'EO AT END *'*R<h»4> 

11423 PRINT ON 75 'AUG* 2*MAI *' *R(K»9> 

11425 IF V O THEN 11430 ELSE 11490 
11430 TF V4»l AND V6«l THEN 11455 
11*35 PRINT ON 75'FULL SCALE V*'*U4 
11440 IF V4-1 THEN 11*45 ELSE 11440 
11443 PRINT ON 75'FULL SCALE I*' 1A2/A1*N4*2 
11450 GO TO 11440 

11453 PRINT ON 75'FULL SCALE I*'IU4 

11440 IF V4*l AND V4«l THEN 11683 

11445 PRINT 'FULL SCALE V*'JU4 

11470 IF V4*l THEN 11*75 ELSE 11490 

11475 PRINT 'FULL SCALE I*' tA2/Al*U4*2 

11480 GO TO 11690 

11485 PRINT 'FULL SCALE I*'*U4 

11490 GOSUB 11295 

11495 NEXT K 

11700 RETURN 

11950 ' ' 

11955 'HOME'5 
11940 INPUT VI* 

11945 RETURN 
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1433 

1433 

1434 

1435 
1434 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 
1444 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 
1454 
1457 


C * 

C * TERMINATION ROUTINE. 

C * 

C |*Mt*l*l*l*********»t«««lt*M««mM«*MIIM*«t*W««l*WI**lll< 
12000 REM TERMINATION ROUTINE 
12002 PRINT ' ' 

12004 GO TO 12070 

12005 IF F<1>»I THEN CLOSE 7 

12010 IF Z1>0 THEN I201S ELSE 12040 
12015 Z3-4 

12020 PRINT 'DO YOU UlSH TO UIEU PLOT NOU OR* 

12025 PRINT 'DO YOU UlSH TO STORE SAME FOR LATER?' 

12030 PRINT 'INPUT' 'NOU'' OR "LATER"? DEFAULT* NOU'I 
12035 INPUT Z* 

12040 IF Zt-'NOU' OR Zt-'-2' THEN Zt*'DONE' ELSE 12050 
12045 GO TO 9644 

12050 IF Zt-'LATER' THEN Zt-'CLOSE' ELSE 12020 
12055 GOSUP 9664 

12040 PRINT 'THANK YOU FOR YOUR PATRONAGE.' 

12045 STOP 

12070 PRINT 'TERMINATE OR KEEP RUNNING 'l 
12075 INPUT At 

12080 IF A**'TERMINATE' THEN 12005 
12005 IF At-'KEEP RUNNING' THEN RETURN 
12090 GO TO 12070 
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1459 C * MMWIMlWfWI 

1440 C $ CHOOSE HALF-CYCLE 

1441 C * 

1442 C 4 XXX XX 4 ♦ XX 4 XX XX XXX X XXX XXX * XXX XX ffllti XXXXXXXXXXXXXXXXXXXXXX it XX it AO 

1445 14000 REM HALF CYCLE SELfcCriON **x*x«x«*x 

1444 14003 PRINT ' ' 

1445 14005 PRINT 'WHICH HALF CYCLE 00 YOU WISH TO USE'l 

1444 14010 INPUT VI 

1447 14015 IF Vl«-2 THEN Vl-l 

1448 14020 IF VIU OR VI. 4 OR V1<MNT<VI> THEM 14005 

1449 1402S RETURN 

1470 C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1471 C 4 

1472 C * CHARGING INITIALIZATION—START OF HALF-CYCLE. 

1473 C * 

1474 c * options: 

1475 C * 

1474 C * l) INPUT TYPED IN DURING INITIALIZATION GIVES INITIAL 

1477 C * CONDITIONS. 

1478 C * 2) PRIOR RESULT IN CHOSEN HALF-CYCLE I.E, LAST DATA POINT 

***9 C » IN THE PARTICULAR HALF-CYCLE LEFT OVER FROM A PREVIOUS 

1480 C * CALCULATION GIVES INITIAL CONDITIONS. 

1481 C * 3) RESULT OF PREVIOUS HALF-CYCLE I.£. LAST DATA POINT IN NEXT 

1462 C * LOWER NUMBERED HALF-CYCLE GIVES INITIAL CONDITIONS. 

1483 C « 

1484 C 4 DEFAULT-3 

1485 C * 

1484 C XXXXXXX*t***X*XXXXX*X***X**»XXX*XX««XX*X*XXtX*XXXXXX4*XX»XX*X*«XXXX 

1487 14030 REH CYCLE INITIALIZATION 

1488 14033 PRINT ' ' 

1489 14035 PRINT 'BASE INITIAL CONDITIONS ON 1) TYPED IN INPUT' 

1490 14040 PRINT TAB<27>*'2> PRIOR RESULT IN THIS HALF-CYCLE OR' 

1491 14045 PRINT TA»<27>»'3) RESULT OF PREVIOUS HALF-CYCLE.' 

1492 14050 PRINT 'CHOOSE lr 2t OR 3'f 

1493 14055 INPUT V? 

1494 14040 IF V9—2 THEN V9-3 

1495 14045 IF V9<I OR V9>3 OR V9<>INT<V9> THEN 14035 

1494 14044 IF V9-2 THEN IF R<V1,3)*0 THEN 14725 

1497 14047 IF V?«3 THEN IF V! t THEN IF R(V1-1*3>«0 THEN 14725 

1498 14048 IF V9-3 THEN IF Vl»t THEN IF R<4»3>-0 THEN 14725 

1499 14070 R<Vlr9)*0 

1500 14075 V7—1 

1501 14080 K9-0 

1502 14085 G3-1 

1503 14090 ON V9 GO TO I409Sf14125.14150 

1504 14095 T<Vl#l)*r<Ul,2>«r-T7 

1505 14100 E<Vl'l)-X<Vl'l)-0 

1504 14105 I<V1*2)»I2-I1 

1507 14110 £<Vl*2>-£4«£5 

1508 14115 Al-2 

1509 14120 GO TO 14175 

1510 14125 T(V1f1)»T-0 

1511 14130 E(V1f1)-E4«R(VW4) 

1512 14135 KVtrO* I2-RCV1 f8) 

1513 14140 Al-1 

1514 14145 GO TO 14175 
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ISIS 

1514 

1517 

1510 

1510 

1520 

1521 

1522 

1523 

1524 

1525 
1524 
1527 
1520 
1520 

1530 

1531 

1532 

1533 

1534 

1535 
1534 
1537 
1530 
1530 

1540 

1541 

1542 

1543 

1544 

1545 
1544 

1547 

1548 
1540 

1550 

1551 

1552 

1553 

1554 

1555 
1554 

1557 

1558 
1550 

1540 

1541 

1542 

1543 

1544 

1545 
1544 

1547 

1548 
1540 

1570 

1571 


14150 IF Vl-1 THEM Al»4 ELSE Al-Vl-1 

141SS T<V1»WT~0 

14140 E<Ul.l)*E6~R<Al'6> 

14165 ICV1»1>*I2*R(A1*8> 

14170 Al*l 

14175 IF V9'3 THEN R<V1»4>*V1 ELSE 14195 
14180 *<Vlt3)*E6 
14185 R<V1»7)*I2 
14100 GO TO 14205 

14^00 GO TO tilOO^ RCV1,4, * ft<VX ” lf4> + t ELSE R<Vt»4i«R(4*4)01 

14205 IF E6<>0 OR V9»I THEM 14280 

14210 IF V9*2 THEM V8*V1 ELSE V8»Vl-l 

14215 IF VS*0 THEN 08*4 

14220 V7*RCV8»l)—1 

14225 V7-T8-<8333.33-TCV0,V7>> 

*522 S EM w7 N0U ■ TIMe LEFT F0 * DISCHARGE completion 
14235 Calx. fnp<ri,li*o> 

14240 A1*A1+1 
14245 T*T(VltAl)*V7 
14250 E7*E6*E(V1»Al)-0 
14255 G2*V7 

14240 CALL FNT<0» X2»E6*R1*L1*0) 

14265 13*12 

14270 I2*I<V1»A1>*FNI<G2’R1> 

14275 GOSUB 14715 

J222 £f £ 5>l ™ EN «*El*SIN(I3»T41E-6> ELSE A2-Ei*C0SU5*T*lE-6> 

142SS G1»T 

JJ2J2 ^TURN 0 AND E6<A2 0R I2 '° THEN C0SUB 850 e *"SE 14300 

14300 IF E6*A2 THEN IF 12*0 THEN 14325 
143CS GOSUB 875 

14310 REM Gl-MOST RECENT TO? G2-T-G1 
14315 Rtf* G3*BREAK BEING LOOKED FOR* 

14320 RETURN 

14325 IF T>4166.67 THEN GOSUB 875 ELSE GOSUB 850 
14330 RETURN 

C *• ROUTINES FOR BOTH TIME AND VOLTAGE THRESHOLDED CALCULATION* * 

® _ * 5r !fJ t **5** , **' ,< ’•**'****40*** 1,r * , ' r **4***»*«4t***«t*4i**4r*4t:|r****<j|*#Hi*jt*|t J |r* 

*4335 REfl BREAK NOT FOUND 

14340 IF TT 8333.33 THEN T«0333.33 

14345 S2*T-G1 

14350 E7*E6 

14355 I3*r2 

14360 IF 01*1 THEN I2*FNI(C2rkl) ELSE I2»FNI<G2>R2> 

14365 IF 01*1 THEN E6*FN£ (G2 r ft1rC 1) ELSE E6*FNE(G2rR2rCl) 

14370 G4*SGN(I3) 

14375 GS-SGN<12) 

14300 IF G4*-G5 OR G5*0 AND G4 ; 0 THEN 14425 
14385 REM NO CHANGE IN SIGN OF It NO BREAK. 

14300 Al»Ai+t 
14305 T<V1*A1)*T 
14400 E(V1*A1)*E6 
14405 I<U1»A1>*I2 




1573 14410 COSUB 14713 

1573 14415 IF T-0333.33 THEN 14435 ELSE RETURN 

1574 14420 REN ESTABLISH DIODE COMMUTATION TIME 

1575 14425 A4*FNL<TCUl'Al)»0*I3'rr0tl2> 

1374 14430 Al-Al+1 

1577 14435 T<V1»A1>*T*A4 

1578 14440 G2-A4-G1 

1577 14445 IF 01«1 THEN I2*FNICG2#R1> ELSE I2-FNI (G2«R21 

1580 14450 IF A0S(I2>/«001 THEN 14435 ELSE 14680 

1581 14455 Al-At-t 

1582 14460 GO TO 14425 

1583 14465 REM BREAK FOUND? BREAK TIME IN S<V1»G3> 

1584 14470 T*StVl*G3> 

1585 14475 G2-T-G1 

1588 14480 13*12 

1587 14485 E7«E6 

1588 14470 IF 01-1 THEN 12*FNI(G2»R1> ELSE I2-FNI(G2>R2) 

1587 14495 IF 01*1 THEN E6*FNE<G2fR1fC1) ELSE E6*FNE<G2fR 2rCi> 

1590 14500 Al-Al+l 

1591 14505 TCVX'AD-T 

1592 14510 ECVI*A1)*E6 

1573 I451S I<VlrAl>*I2 

1574 14520 GOSUB 14715 

1575 14525 Al-Al+1 

1578 14530 TCVl*AU*r 

1577 14535 Z:U1»A1>»I2 

1578 14540 ECVlrAl>*0 

1577 14S4S CALL FNPCRIfLIfO) 

1800 14550 Gl*T 

1801 14555 13*12 

1802 14560 E7*0 

1803 14565 CALL FNTCGl»I2r0rRl»L1*0> 

1804 . 14570 T-T+T8 

1805 14575 IF ri8333.33 THEN T*8333.33 

1808 14580 G2-T-G1 

1807 14535 A1-A14-1 

1808 14590 I2—ICV1»A1)*FNI(G2»R1) 

1807 , 14595 TCV1»AI)*T 

1810 14600 £<VlrAl>*£6»0 

1811 14605 COSUB 14715 

1812 14610 GOSUB 850 

1813 14615 63*034-1 

1814 14620 G1*T 

1615 14625 IF 1*8333.33 THEN 14635 ELSE RETURN 

1818 14630 REM END OF HALF-CYCLE 

1817 14635 RCV1*1)*A1 

1818 14640 IF Vi *1 AND V903 THEN R<Vl»3)~-l ELSE R<V1'3>*1 

1817 14645 R<VI*6>*£6 

1820 14650 R(VI»0)*I2 

1621 14655 RCVi*9)*R(VI * 91/8333*33 

1622 14660 IF 01 >1 THCN GOSUB 850 

1823 14663 IF G3-.26 THEN SCVlrG3)*0 

1424 14665 K9*l 

1625 14670 RETURN 

1628 14675 REM COMMUTE DIODE 

1627 14680 01*T 

1628 14685 I<VI »A1)-12*0 
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1629 14490 IF Qt»l THEN EA»FNE<G2rRl»Cl> ELSE E4*FNE(G2»R2»C1> 

1430 14495 E<V1»A1)»E4 

1431 14700 GOSUB 14715 _ 

1632 14705 IF 01*1 THEN GOSUB 075 ELSE GOSUB 850 

1674 14715 R(V1*9>»R(V1 *9)+< <ABS< I3>+A8S<I2) )/2>*<T-T<Vi»Al-l)) 

ItS M72S PRINT^'NO BATA IN HALF-CYCLE CHOSEN FOB INITIAL CONDITIONS. 

1437 14728 PRINT ' TRY AGAIN.' 

1438 14730 GO TO 14033 
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PITS-35 


1439 

1440 

1441 

1442 

1443 

1444 

1445 
1444 
1447 
1449 

1449 

1450 

1451 

1452 

1453 

1454 

1455 
1454 
1457 
1453 
1459 

1440 

1441 

1442 

1443 

1444 

1445 
1444 

1447 

1448 

1449 

1470 

1471 

1472 

1473 

1474 

1475 
1474 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 
1484 
1497 
1499 
1499 

1490 

1491 

1492 

1493 

1494 

1495 


**XX**«*XXX*«XXX*XXXXXX*XXXt*X«fXXXX*XXXXXX*XXXXXX*XXXXX*XXXXtX*XSX 
* 

* VOLTAGE THRESHOLDING ROUTINE 

* 

* CHOICE OF 4 MANIFOLDS (DEFAULT-EQUIVALENT PATTERN) 


* CHOICE OF HARDUARE OR NO-HARDUAKE LIMIT 

* (DEFAULT-HARDWARE LINITED-NU BREAKS IN FIRST 140 US OR LAST 140 

* US OF HALF-CYCLE* OR WITHIN 140 US OF PREVIOUS BREAK)♦ 

* 

* CHOICE OF MELDING 

* ALLOWS EARLY CLEARING OF VC TO START FRESH PATTERN (1) OR 

* FIRING BASED ONLY ON THE MANIFOLD (2)* DEFAULT-2 

* 

* TIME OF FIRST BREAK MAY BE ARBITRARILY SET. 

* DEFAULT INPUT (0 OR -2) MEANS NO BREAK IS FORCED TO OCCUR 

* EARLY IN THE HALF-CYCLE EXCEPT BY THE MANIFOLD OR MELDING 

8 CONTROL. NON-DEFAULT ENTRY LETS USER SPECIFY UHEN FIRST 

9 BREAK OCCURS. 

9 MELDING CONTROL CAN FORCE A FIRST BREAK TO °££UR) 'TIME OF * 

8 FIRST BREAK' INPUT CAN SPECIFY UHEN BUT CANNOT TURN MELDING 
8 CONTROL OFF. 


C 

c. 
c 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c *«*»****«****t*X*****4**4**4lt<***«**8t8**M**<*$4*****«*<**<4**4*** J 

14000 REM VOLTAGE THRESHOLDING 

14010 PRINT ' CHOOSE MANIFOLD! 1) TYPED IN VOLTAGES' 

14015 PRINT TAB<17>)'2) EQUIVALENT PATTERN' 

14020 PRINT TAB(l7>#'3> RANDOM VOLTAGE PATTERN' 

14025 PRINT TAB<17>I'4> SINUSOID PATTERN' 

14030 PRINT TAB<l7>r'S) RAMP PATTERN' 

14035 PRINT TAB<17)f *4) TRAPEZOID OR OTHER USER SUPPLIED PATTERN' 

14040 PRINT 'CHOICE’ DIGIT 1 THROUGH 6' i 
14045 INPUT D2 
14050 IF D2—2 THEN D2-2 

14055 IF D2 ;>INTCD2> ON D2sl OR D2>6 THEN 14040 

14045 0N*D2 GO TO 16315’ 16070* 16085’ 14140* 16175’14220 
14070 PRINT 'FREAK VOLTAGE-' i 
14075 INPUT D3 

14080 IF D3: 0 THEN 14310 ELSE 14070 
16005 IF K8C 0 THEN 16120 
16090 PRINT 'RANDOMIZE') 

16095 INPUT VI* 

16100 IF VI*-'YES' OR V1*»'Y 
16105 RANDOMIZE 
16110 K8-1 
16115 K8-K8+1 
16120 D4-D5-0 

16125 PRINT 'PEAK ALLOWED BREAK VOLTAGE- 
16130 INPUT D3 

16135 IF D3‘0 THEN 16310 ELSE t6125 
16140 PRINT 'PCAN ALLOWED BREAK VULTAGE- 
16 145 INPUT D3 

16*50 IF D3.0 THEN 16155 ELI ^ IA140 
16155 PRINT 'PHASE ANGLE IN DECREES- I 


THEN 16105 ELSE 16115 
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16140 INPUT 04 
16165 04*14*04/360 
16170 GO 10 16310 

16175 PRINT 'PAHP VOLTAGE AT T*0 *M 

16100 INPUT 03 

16185 IF D3<0 THEN 14175 

16190 PRINT 'RAMP VOLTAGE AT T*8333.33 *'l 
16195 INPUT 04 

16200 IF 04*0 THEN IF 03*0 THEN 16175 
16205 IF D4« 0 THEN 16190 
16210 04*<04-03)/3333*33 
16215 GO TO 14310 

16220 REN USER INPUT ROUTINE NAY RUN TO 16305 
16225 PRINT 'PLATEAU VOLTAGE*'» 

16230 INPUT 05 

16235 IF 0Ss*O THEN 16225 

16240 PRINT 'PLATEAU STARTS AT T*' f 

16245 INPUT 03 

16250 IF D3*-2 THEN 16295 

16255 IF P3n0 OR 03' 8333.32 THEN 16240 

16260 PRINT 'PLATEAU ENOS AT T*'J 

16265 INPUT 04 

16270 IF D4*-2 THEN 16305 

16275 IF D4<0 OR 04 0333.33 THEN 16260 

16280 IF 04<D3 THEN 04**03 

16285 04*8333.33-04 

16290 GO TO 16310 

16295 03*04*1000 

16300 GO TO 16310 

16305 IF D3<4166.67 THEN 04*03 ELSE 16240 
16310 PRINT ' ' 

16315 PRINT 'CONFORMITY CONTROL! 1> STRICT CONTROL' 
16320 PRINT TA*<20>#'2> HARDWARE LIMITED CONTROL' 
16325 PRINT 'INPUT 1 OR 2'> 


16330 INPUT 06 

16335 IF D6*-2 THEN D6*2 

16340 IF 06-;>l. THEN IF 060-2 THEN 16325 

16345 PRINT ' ' 

16350 PRINT 'HELOING CONTROL S 1> FIRE DISCHARGE AT OR NEAR T*0' 
16355 PRINT TAB(17>**2) FIRE DISCHARGE BASED ONLY ON MANIFOLD 
16360 PRINT 'INPUT l OR 2'T 
16365 INPUT 08 


16370 IF 08*2 OR 00»-2 THEN 08*0 
16375 IF 08CO THEN IF 0801 THEN 16360 


16380 PRINT ' ' 

16385 PRINT 'FIRST BREAK CONTROL' ,, 

16390 PRINT 'TIME AT WHICH FIRST BREAK MAY/UILL OCCUR* > 

16395 INPUT 07 

16400 IF 07 0 THEN 07*0 

16405 IF 07*0 THEN IF 06*2 THEN 1*420 

16410 IF 07*0 THEN IF 06*2 THEN IF 08*1 THEN 07*140 

16415 GO TO 16425 

16420 IF D7vl40 THEN 07*140 

[VS IP IF B7-0 THEM IF «7-»0 THEM B0-0 

16435 PRINT ' ' 

16440 PRINT 'SATISFIED WITH SETUP'1 
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1*450 IF VI*<>'YES' THEM IF VHO'Y' THEN IF Ul»<>'-2' THEN 1A005 

16455 REN SETUP COMPLETED 

16460 IF D7>0 THEN 16495 

16465 IF D8*l THEN 16480 

16470 GO TO 16530 

16475 REM CLEAR HISTORY _ _ .. 

16480 IF V9*l THEN G(Vt*G3>»T+.01 ELSE SCVlfG3)»»01 

16485 GOSUB 14465 

16490 GO TO 16530 

16495 T-T+50 

16300 IF T: D7 THEN T-D7 

16505 IF T*07 THEN 16520 

16510 GOSUB 14335 

16S1S GO TO 16495 

16320 S(VlrG3)*T 

g^^**<*#6**##***4**«*»4****4#*4*<***«**<************ , * 1 l ,1, l: * t ****** 1 * t ** : **** 
c * CHARGING CALCULATIONSr VOLTAGE THRESHOLDING. 

16530 REM NORMAL THRESHOLDING ROUTINE—VOLTAGE 

16535 IF 01*1 THEN H1*FNE<T-G1»K1»C1> ELSE Hl*FNE(T-GlfR-rCl) 

16540 H2*FNR(T> 

16545 IF D2*l THEN IF H2*0 THEN 16560 
16550 IF H1,H2 THEN 00*1 ELSE 0G*0 
16555 IF H2-H1 THEN 16730 
16560 T-T+SO \ 

JSS $ ELSE H1"FNE< T-Ql »R2rCl > 

16575 H2*FNR<T> 

16580 IF D2»l THEN IF H2*0 THEN 16600 
16585 IF 08*0 THEN 16590 ELSE 16595 

16590 IF HI H2 THEN 16610 ELSE 16598 
16395 IF H2>H1 THEN 16610 
16598 GO TO 16820 
16600 GOSUB 14335 

16603 IF A1*250 THEN IF K901 THEN 6045 
16605 IF K9<>1 THEN 16560 ELSE RETURN 
16610 H5*T 

!2$30 If’oI-i’tHEN H3.FNE<H4-GlrRl.Cll ELSE H3-FNE<H4-01,*3.C1> 

16622 H2*FNRfH5> 

16627 IF 01*1 THEN Hi*FNE<HS-Gl*R1 t Cl> ELSE Hl*FN£<H5-Gl*R2*CI) 

16630 H7*FNL<H6fH3rH4»MS*HlrH2> 

16640 IF*01»l H THEN H9*FNE<II7-G1 rRl *■ Cl) ELSE H9-FNECH7-G1 #R2*C1) 

16642 REH CHCCR ITERATION CONVERGENCE 
16644 IF A8S(H9-M0>'.2 THEN 16AAli 

16646 IF 08*0 THEN IF H9 H0 THEN H5*M7 ELSE HA'M? 

16648 IF 00*1 TMCN IF H9 MB IMLN H6«H7 ELSE H^»H7 
16630 IF H6,.TCVlfMl ) THEM H6*T<Vl*Al > 

liil. IF HS*T THEM THEN 144U4 ELSE 14420 ELSE 14420 

16656 PRINT ' THRESHOLD ING CONVERGENCE LOCKUP. CALCULATION ABANDON * 




?ITS-j8 


IftIO 

tan 

1812 

1813 

1814 

1815 
1814 
181? 
1818 
181? 
1820 
1821 
1822 

1823 

1824 

1825 
1824 

1827 

1828 
182? 
1330 

1831 

1832 

1833 

1834 

1835 
1834 

1837 

1838 
183? 

1840 

1841 

1842 

1843 

1844 

1845 
1844 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 
1854 
185? 

1858 

1859 

1840 

1841 

1842 


14458 GOSUB 14435 

14440 PRINT 'OK TO PRINT OUT RESULTS OR PLOT.' 

14442 RETURN 
14445 T*H7 

14470 IF TV8J33.33 THEN t6400 
14475 IF G3«l THEN 14485 
14480 IT T ;3(VlrG3-n THEN 14400 

14485 IF 01*1 THEN H6»FNI<T-Gl»R1) ELSE H6*FNI<T-G1»R2> 
14490 IF 01*1 THEN IF H4*0 THEN 14885 
14495 IF 01*0 THEN IF H6'0 THEN 16885 
14700 IF B6*l THEN 14730 

14705 REN CHECK FOR HARDWARE LIMITS TO BREAK TINE 
14710 IF 8333.33-T-.200 THEN 14750 

14713 IF 63^1 THEN IF D4-2 THEN IF Tsl40 THEN 14775 

14715 IF 03*1 THEN 14730 

14720 IF T-S(V1»G3-1K140 THEN 14775 

14725 REN TAKE A BREAK 

14730 SCV1-G3)»T 

14735 GOSUB 14445 


08*0 

GO TO 14403 

REN TERMINATE ON LATE BREAK INDICATION 
GOSUB 14335 

IF K9C1 THEN 16745 ELSE RETURN 
T-8333.33 

IF A1*2S0 THEN 4045 
GO TO 14750 

REN HARDWARE LIMITED. BREAK TIME 
GOSUB 14335 
IF K9-1 THEN RETURN 
IF A1-2S0 THEN 6045 

IF 03*1 THEN T*t40.01 ELSE T*S<VI*G3-1 > +140,01 
IF 01*1 then H6*FNI<T-«lrRl> ELSE H6*FNI<T-G1»R2> 

IF 01*1 THEN IF H6vO THEN 16780 

IF 01*0 THEN IF H4 0 THEN 167S0 

IF 8333.33—T .200 THEN 16750 ELSE 16730 

REN COMMUTATION/BREAK CONFLICT RESOLUTION 

IF 01*1 THEN Bl*FWllT-Glfftl > ELSE B1*FMI<T-Gl»R2> 

IF 01*1 THEN IF »1<*0 THEN 16840 
IF 01*0 THEN IF 61 >*0 THEN 16840 
GO TO 16600 

B2*FNL(T<Vl»Al)»0»I<Vl»Al)fT*0*Bl> 

IF 01*1 THEN B3-»FNE<B2-G1 »R1 *C1 > ELSE B3*FNE(B2-Gl*R2fCl> 

IF 08*0 THEN 16855 ELSE 16860 

IF B3>«FNR<£»2> THEN 16865 ELSE 14600 

IF B3*- FNR< 62) THEN 16865 ELSE 16600 

H2*FNK’< B2) 


16870 T*B2 
16875 CO TO 16610 

16880 REN CHECK ORDER OK COMMUTATION/BKEAK 
14805 82*FNL<T<UlrAl>>0.rtVI .A1>*T»0*H6> 
14890 IF B2 .T THEM 16600 ELSE 14700 


99999EWD 






TABLE 0,2. Memory Map of Program PITS* 

Statements Contents 

1-200 Initial setup 

500-999 Charging equation functions; utility routines 

1000-1100 Core routine 

2000-3200 Ini tial ization routine 

4000-4100 Calculation control routine 

4300-5200 Voltage thresholding manifold functions 

6000-6150 Time thresholding routine 

8000-8999 Output control routine 

9000-9999 PEPSUB 

10000-10999 Miniplot 

11000-11999 Printed output routine 

12000-12100 Termination routine 

14000-14330 Calculation setup 

14335-14999 General charging calculation routine. 

16000-16525 Voltage thresholding setup 


16530-16999 Voltage thresholding calculation routine 
-99999 End 
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V. Sample Run of Program PITS 

On pages EX-1 through EX-11 appears the output of a short run 
of program PITS. This run was arranged to show syntax of as many 
options as possible, with secondary consideration given to the 
direct applicability of the data used to a laboratory situation. 
The Interaction will be described page by page. PEPSUB output 
produced from the run is shown in Figure D.4 at the end of the 
sample run. 
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sx-i 


hacc 33*34 tty U02038 
•RON AS* 4 lGCO» £593602639r ¥5.00*100 
RUNIDnOS37S DA-7E5070878 TIME:141 104 
PASSWORD PLEASE 


mm 

CONTINUE 

•LI»*BACKUP*BA3ir CHEMISTRY ^WALTERS • 

BASIC X4.0.4 14511539 8 JUL 78 

>0LD SPITS 
>RUNNH 

00 YOU WANT MfiSRSf COPY? NO 

WHAT IS PCWEP SJPPLT FREQUENCY- 

60 OR 0*1 HERTZ? 60 

HOME? 1 

RCFQRUARD BIASES?)*? 40000 

R<REVERSE BIASES'!)** 35E6 

LCHENRIES)** ZS 

C<MICROFARADS*** -013 

PEAK XhFR UCLTiR<5£-* 8274 

LENGTH OF DISCHARGE(MICROSECONDS)*? 40 

TOCSTART TIME FPCW1 ZERO CROSSING)®? 0 

10 CHILLI AMPS)*? »D 

EO*? 6000 

MAXIMUM PREDICTED BREAKS PER HALF CYCLE*? 25 

FOR HOW MANY KAiUr—CYCLES DO YOU WISH TO ENTER BREAK TIMES? 1 

ENTER BREAK TIMES IN MICROSECONDS FOR EACH HALF CYCLE. 

AFTER ALL BR£A**S ENTERED FOR A HALF CYCLE t INPUT 0. 

HALF CYCLE 1 

ENTER BREAK TIM€5 AFRESH OR ADD TO PREVIOUS LIST 
TYPE 'FRESH' OR "ADD TO'? FRESH 


BREAK TIME** ICv <0 
BREAK TIME*? 5GCO 
BREAK TIME** 0 

DO YOU WISH TO EiDIT BREAK TIMES? N 


ENTER BREAK VOLTAGES FOR HOW MANY HALF-CYCLES? 1 

ENTER BREAK VOLTAGES IN VOLTS IN THE ORDER DESIRED. 
DEFAULT -2 GIVES 6000 VOLTS. 

IN FRESH MODE* AT7ER LAST BREAK t ENTER ZERO. 


HALF-CYCLE 1 

FRESH OR EDIT? SFaESH 
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EX-2 



BREAK VOLTAGE*? ?000 
BREAK VOLTAGE*? 6000 
BREAK VOLTAGE*? 5000 . 

BREAK VOLTAGE*? 0 

FRESH* INSERT * DELETE* LIST* OR DONE? LIST 
HOHE? 1 

NUMBER BREAK VOLTAGE 

1 7000 

2 0000 

3 5000 

FRESH* INSERT* DELETE* LIST* OR DONE? DELETE 

WHICH BREAK? 2 

FRESH* INSERT* DELETE* LIST* OR DONE? LIST 
HOME? 1 

NUMBER BREAK VOLTAGE 

1 7000 

2 5000 

FRESH* INSERT* DELETE* LIST* OR DONE? INSERT 

INSERT AFTER WHICH BREAK? 1 
BREAK VOLTAGE*? 6000 

FRESH* INSERT* DELETE* LIST* OR DONE? LIST 
HOME? 1 

NUMBER BREAK VOLTAGE 

1 7000 

2 6000 

3 5000 

FRESH* INSERT* DELETE* LIST* OR DONE? DONE 

THE POSSIBLE ROUTINES ARE: 

INPUT* CALCULATE* OUTPUT* TERMINATE* 

ENTER A NUMBER t. 2* 3* OR 4*? 1 

HHAT INITIALIZATION OPTION DO YOU DESIRE? 4 

MAXIMUM PREDICTED BREAKS PER HALF CYCLE*? 25 

FOR HOW MANY HALF-CYCLES DO YOU WISH TO ENTER BREAK TIMES? 

ENTER BREAK TIMES IN MICROSECONDS FOR EACH HALF CYCLE* 
AFTER ALL BREAKS ENTERED FOR A HALF CYCLE* INPUT 0. 

HALF CYCLE 1 

ENTER BRFAK TIMES AFRESH OR ADO TO PREVIOUS LIST 
TYPE * FRESH * UR 'ADD TO'? ADD TO 
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BREAK TIME*? 3000 
BREAK TIME*? 0 

DO YOU WISH TO EDIT BREAK TIMES? YES 

HOME? 1 
BREAK TIMES ARE: 

1 1000 
2 3000 
3 5000 

REMOVE WHICH BREAK? 2 
REMOVE WHICH BREAK? 0 
SATISFIED FOR THIS HALF CYCLE? Y 


ENTER BREAK VOLTAGES FOR HOW MANY HALF-CYCLES? 0 


THE POSSIBLE ROUTINES ARE: 

INPUT * CALCULATE* OUTPUT. TERMINATE. 
ENTER A NUMBER 1* 2* 3* OR 4.? 2 


CHOOSE CALCULATION METHOD! 1) TIME THRESHOLDING 

2) VOLTAGE THRESHOLDING 

3) ABORT 

CHOOSE Ip 2p OR 3? 3 

THE POSSIBLE ROUTINES ARE: 

INPUTr CALCULATE* OUTPUT* TERMINATE. 

ENTER A NUMBER 1* 2* 3* OR 4.? 123 

ENTER A NUMBER 1* 2* 3* OR 4.? 2 


CHOOSE CALCULATION METHOD! 1) TIME THRESHOLDING 

2) VOLTAGE THRESHOLDING 

3) ABORT 

CHOOSE 1* 2» OR 3? 1 

WHICH HALF CYCLE DO YOU WISH TO USE? 1 

BASE INITIAL CONDITIONS ON 1) TYPED IN INPUT 

2) PRIOR RESULT IN THIS HALF-CYCLE OR 

3) RESULT OF PREVIOUS HALF-CYCLE. 

CHOOSE 1* 2* OR 3? 1 

USE TIMES FROM THIS HALF-CYCLE OR PREVIOUS HALF-CYCLE. 

INPUT 'THIS' OR 'PREVIOUS'? THIS 

THE POSSIDt E RQliriNKS ARE: 

INPUT* CALCULATE* OUTPUT* TERMINATE. 

ENTER A NUMBER 1* 2* 3* OR 4.? 2 



CHOOSE CALCULATION METHOD 
CHOOSE U 2. Oft 3? 1 


1) TIME THRESHOLDING 

2) VOLTAGE THRESHOLDING 

3) ABORT 


UHICH HALE CYCLE DO YOU WISH TO USE? 2 


BASE INITIAL CONDITIONS ON 
CHOOSE 1* 2* Oft 3? 3 


1) TYPED IN INPUT 

2) PRIOR RESULT IN THIS HALF-CYCLE OR 

3) RESULT OF PREVIOUS HALF-CYCLE. 


USE TIMES FROM THIS HALF-CYCLE OR PREVIOUS HALF-CYCLE. 
INPUT 'THIS* OR 'PREVIOUS*? PREVIOUS 


THE POSSIBLE ROUTINES ARE: 

INPUT* CALCULATE.* OUTPUT* TERMINATE. 
ENTER A NUMBER I» 2* 3* OR 4.? 3 


UHAT OUTPUT OPTION DO YOU WANT? 20 

HOW MANY HALF CYCLES ARE TO BE OUTPUT* 2 

INPUT TITLE. *-2' GIVES DEFAULT. 

? TIME THRESHOLDING SAMPLE 

CHOOSE PLOT VARIABLES. 

ANSWER 'YES* OR *Y' FOR EACH PLOTTED VARIABLE DESIRED. 

CAPACITOR VOLTAGE? Y 
CHARGING CURRENT? Y 
XMFR VOLTAGE? Y 

ENTER SCALING OPTION? 2 

IF SATISFIED WITH PLOT SETUP* ENTER*YES'OR'Y # 
OTHERWISE* rOU CAN GO BACK AND TRY AGAIN. 

ENTERING 'ABORT*TERMINATES THIS PASS OF OUTPUT. 
SATISFIED? Y 

A) ENABLE HARD COPY PLOTTING? YES 


THE POSSIBLE ROUTINES ARES 

INPUT* CALCULATE* OUTPUT* TERMINATE. 

ENTER A NUMBER 1* 2* 3* OR 4.* 3 


UHAT OUTPUT OPTION DO YOU WANT? 2 

HOU MANY HALF CYCLES ARE TO BE OUTPUT? 2 

INPUT TITLE. '-2' GIVES DEFAULT. 

? TIME THRESHOLDING SAMPLE 
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EX-5 


HOME? 


TIME THRESHOLDING SAMPLE 


HALF-CYCLE 1 


BREAK VALUES 


BREAK VOLTAGE CURRENT TIME 


1 3992 -.00 1000.0 

2 8402 -.02 5000.0 


HOME? 1 


HALF-CYCLE 2 


BREAK VALUES 

BREAK VOLTAGE CURRENT TIME 

1 7238 -.12 1000.0 

2 8402 -.02 5000.0 


HOME? 1 


TIME THRESHOLDING SAMPLE 
HALF-CYCLE 1 


PARAMETER DUMP 


RCFORUARD)® .40E+05 R(REV. BIAS)* .35E+08 

LCHENRIES)* 25.000 GAMMA<DEG)* -74.54 

ZO* .17213E+06 S**2= -.S0647E+10 

ECXHFR)* 8274 DISCHARGE DURATION* 40 

10 AT START * 0 

10 AT END *-.20703315 

EO AT START * 6000 

EO AT END * 7248.4693 

AVC. t<MA) * 28.62737 


C(UF)» .0130 
N BREAKS* 2 
S* .7118E+05 


HOME? 
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£ 

EC-6 


‘ • - 


HALF-CYCLE 2 


; - 


PARAMETER DUMP 


— 

RCFORUARD)* .40E+05 

L(HENRIES)* 25.000 
20* .17213E+06 
E(XHFR)* 8274 

R(REV• BIAS)* .3SE+0Q 
GAMMA(DEG)* -76.56 

S**2* -.50647E+1C 

DISCHARGE DURATION* 40 

C < UP > * .0150 

N BREAKS* 2 

S* .7118E+05 

i • • 


10 AT START *-.20703515 
10 AT END *-.20703515 
E0 AT START * 7248.4495 
EO AT END * 7248.4695 
AVC. 1CHA) * 28.632328 


THE POSSIBLE ROUTINES ARE; 

INPUTr CALCULATE* OUTPUT * TERMINATE. 
ENTER A NUMBER 1* 2* 3* OR 4.7 2 


CHOOSE CALCULATION METHOD: 1> TIME THRESHOLDING 

2) VOLTAGE THRESHOLDING 

3) ABORT 

CHOOSE 1> 2* OR 3? 2 


WHICH HALF CYCLE DO YOU UISH TO USE? 1 


BASE INITIAL CONDITIONS 


CHOOSE U 2* OR 3? 1 


ON 1) TYPED IN INPUT 

2) PRIOR RESULT IN THIS HALF-CYCLE OR 

3) RESULT OF PREVIOUS HALF-CYCLE. 


CHOOSE MANIFOLD: 1) TYPED IN VOLTAGES 
2) EQUIVALENT PATTERN 
3> RANDOM VOLTAGE PATTERN 

4) SINUSOID PATTERN 

5) RAMP PATTERN 

. , 6> TRAPE20r * OR OTHER USER SUPPLIED PATTERN 
CHOICE* DIGIT 1 THROUGH 6? 1 


CONFORMITY CONTROL! 
INPUT I OR 2? 2 


1) STRICT CONTROL 

2) HARDWARE LIMITED CONTROL 


MELDING CONTROL! 1> FIRE DISCHARGE AT OR NEAR T*0 

« 2> FIRE DISCHARGE BASED ONLY ON MANIFOLD 

INPUT 1 OR 2? 2 


FIRST BREAK CONTROL 

TIME AT UHICH FIRST BREAK MAYYUILl OCCUR*? 0 
SATISFIED UITH SETUP? Y 


U- 
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THE POSSIBLE ROUTINES ARE? 

INPUT* CALCULATE* OUTPUT* TERMINATE« 
ENTER A NUMBER I* 2* 3* OR 4.? 3 


WHAT OUTPUT OPTION DO YOU WANT? 1 

HOW MANY HALF CYCLES ARE TO BE OUTPUT? 1 

INPUT TITLE* '-2' GIVES DEFAULT. 

T VOLTAGE THRESHOLDING SAMPLE 


HOME? t 
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2 «\ —O 

VOLTAGE THRESHOLDING SAMPLE 


HALF-CYCLE 1 


T . 

E 

Z 

T ' 

E 

I 

T 

C 

I 

0.6 

0 

0.00 

2897.3 

6232 

13.22 

5571.9 

3540 

129.86 

0.0 

6000 

o.oo 

2947.3 

o 297 

14*33 

3 o 2 l .9 

3967 

126.30 

50.0 

3999 

-.17 

2997.3 

634 7 

15.40 

* 671.9 

4381 

122.05 

100.0 

5999 

-.16 

3047.3 

6400 

16.41 

3721.9 

4780 

117.18 

130.0 

3998 

-.16 

3047.3 

6456 

17.36 

3771.9 

5162 

111.77 

200.0 

3998 

-.13 

3147.3 

6516 

18.25 

5821.9 

5523 

105.89 

230.0 

3997 

-.13 

3197.3 

6578 

19.06 

3071.9 

5067 

99.61 

300.0 

3997 

-.14 

3247.3 

6643 

19.79 

5921.9 

6180 

93.00 

330.0 

3996 

-.14 

3297.3 

6710 

20.45 

5971.9 

6487 

06.11 

400.0 

3996 

-.14 

3347.3 

6**79 

21.02 

6021.9 

6762 

79.01 

430.0 

3995 

-.13 

3397.3 

6850 

21.30 

6071.9 

7014 

71.76 

300.0 

3993 

-.13 

3447.3 

6922 

21.89 

6121.9 

7241 

64.41 

530.0 

3993 

-.12 

3497.3 

6996 

22.19 

6171.9 

7443 

57.02 

600.0 

3994 

-.12 

3300.3 

7000 

22.21 

6221.9 

7621 

49.62 

630.0 

5994 

-.11 

3500.3 

0 

22.21 

6271.9 

7774 

42.26 

700.0 

3993 

-.11 

3540.3 

0 

33.28 

6321.9 

7902 

34.90 

730.0 

3993 

-.11 

3390.3 

133 

46.09 

6371.9 

8007 

27.82 

000.0 

3993 

-.10 

3640.3 

306 

57.69 

6421.9 

808 B 

20.91 

830.0 

5992 

-.10 

3690.3 

516 

68.09 

6471.9 

8146 

13.99 

900.0 

3992 

-.09 

3740.3 

759 

77.31 

6321.9 

8182 

7.37 

930.0 

3992 

-.09 

3790.3 

toio 

85.37 

6571.9 

8195 

.97 

1000.0 

3992 

-.08 

3840.3 

1326 

92.30 

6579.7 

8196 

0.00 

1030.0 

3991 

-.08 

3890.3 

1644 

98.15 

6629.7 

8195 

-.09 

1100.0 

5991 

-.08 

3940.3 

1980 

102.93 

6679.7 

8195 

-.10 

1130.0 

3991 

-.07 

3990.3 

2329 

106 . 7 S 

o/ 29.7 

8195 

-.10 

1200.0 

3991 

-.07 

4040.3 

2690 

109.39 

6779.7 

8194 

-.10 

1230.0 

5990 

-.06 

4090.3 

3059 

111.33 

6029.7 

8194 

-.11 

1300.0 

5990 

-.06 

4140.3 

3433 

112.61 

0879.7 

8194 

-.11 

1330.0 

5990 

-.06 

4190.3 

3809 

112.89 

6929.7 

8193 

-.11 

1400.0 

3990 

-.03 

4240.3 

4185 

112.43 

6979.7 

8193 

-.12 

1430.0 

3990 

-.03 

4290.3 

4353 

111.27 

7029.7 

8192 

-.12 

1300.0 

5989 

-.04 

4340.3 

4926 

109.47 

7079.7 

8192 

-.13 

1350.0 

3989 

-.04 

4390.3 

5287 

107.09 

7129.7 

8192 

-.13 

1600.0 

3989 

-.04 

4440.3 

5639 

104.19 

7179.7 

8191 

-.13 

1630.0 

5989 

-.03 

4490.3 

3991 

100.81 

7229.7 

8191 

-.14 

1700.0 

5989 

-.03 

4493.1 

6000 

100.60 

7279.7 

8190 

-.14 

1750.0 

3909 

-.03 

4493.1 

0 

100.60 

7329.7 

8190 

-.13 

1800.0 

5989 

-.02 

4533.1 

0 

107.08 

7379.7 

0189 

-.15 

1830.0 

3989 

-.02 

4583.1 

369 

114.22 

7429.7 

8109 

-.13 

1900.0 

3989 

-.02 

4633 . 1 

760 

120.03 

7479.7 

8188 

-.16 

1930.0 

3989 

-.01 

4683.1 

1168 

124.58 

7529.7 

8188 

-.16 

2000.0 

3989 

-.01 

4733.1 

1589 

127.92 

7579.7 

8 t 87 

-. 17 

2030.0 

5980 

-.01 

47 E 3.1 

2020 

130.12 

7629.7 

0187 

-.17 

2100.0 

5988 

-.00 

4833.1 

2455 

131.25 

7679.7 

0186 

-.18 


2147*3 3990 0.00 4 d 83 .X 2893 131.38 7729.7 BIOS -.10 

2197.3 599 V .11 4933.1 3330 130.58 7 ? 79.7 OIOS -.10 

2247.3 3989 .41 4983.1 3763 120.91 7029.7 9184 -.19 

2297.3 5991 .98 S 033.1 4189 126.46 7079.7 8104 -.19 

2347.3 3993 1.3 L 3003.1 4605 123.29 7V29.7 8183 -.20 

2397.3 6002 2.26 5131.9 5000 119.50 79 / 9.7 8107 -.20 

2447.3 6011 3.13 5131.9 0 119 . fi 8 002 V. 7 0102 -.21 

2497.3 6023 4.10 3171,9 O 124.12 00 / 9.7 0101 -.21 

2547.3 6033 5.14 5221.9 422 128.00 H 12 V .7 OHIO -.22 

2597.3 6057 6.24 52 / 1.9 850 137.34 81 / 9.7 0179 -.22 

2447*3 6080 7.38 5321.9 1303 134.57 0729.7 HI 79 -.22 

2697.3 6106 8.55 SJ 71.9 1754 135.63 8279.7 8178 -.73 

2747.3 6137 9.73 5421.9 2206 135.62 0 J 29.7 017 / -.23 

2797.3 6171 10.91 5471.7 7657 134.59 8333.3 01/7 -.23 

2847.3 6209 12.08 5521.9 3102 132.65 
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SX-9 

VOLTAGE THRESHOLDING SAMPLE 


HALF-CYCLE 1 


PARAMETER DUMP 

R«FORUARD>= .40E+05 R(REV * BIAS)* .35E+08 C(UP)- .0150 

L(HENRIES)* 25.000 GAMMA<DEG>= -76.56 N BREAKS* 3 

20* • 17213E+06 S**2» -.50667E+10 S* .7USE+05 

ECXMFR)* 8274 DISCHARGE DURATION* 40 

10 AT START » 0 

10 AT END *-.23356816 

EO AT START * 6000 

EO AT END * 8177.1235 

AUG* I(MA) * 37.622839 


THE POSSIBLE ROUTINES ARES 

INPUT 9 CALCULATE* OUTPUT* TERMINATE* 

ENTER A NUMBER 1* 2* 3* OR 4.? 3 


IINAT OUTPUT OPTION DO YOU WANT? 10 

NOU MANY HALF CYCLES ARE TO BE OUTPUT? 1 

INPUT TITLE. '-2' GIVES DEFAULT. 

T VOLTAGE THRESHOLDING SAMPLE 

CHOOSE PLOT VARIABLES. 

ANSWER 'YES' OR 'Y' FOR EACH PLOTTED VARIABLE DESIRED. 

CAPACITOR VOLTAGE? Y 
CHARGING CURRENT? N 
XMFR VOLTAGE? N 

ENTER SCALING OPTION? 3 

FULL SCALE VOLTAGE*? 10000 


IF SATISFIED WITH PLOT SETUP* ENTER 'YES'OR'Y' 
OTHERWISE* YOU CAN GO BACK AND TRY AGAIN. 
ENTERING 'ABORT'TERHINATES THIS PASS OF OUTPUT* 
SATISFIED? Y 


HOME? 





1 


x+ 

1.0C+O4+ 


EX-10 

VOLTAGE THRESHOLDING SAMPLE 
►-+-+- 





THE POSSIBLE ROUTINES ARES 

INPUT* CALCULATE* OUTPUT* TERMINATE. 

ENTER A NUMBER 1# 2» 3* OR 4.7 3 



UMAT OUTPUT OPTION DO YOU UANTT 20 &T. 

HOW MANY HALF CYCLES ARE TO BE OUTPUT? 1 

INPUT TITLE. '-2' GIVES DEFAULT. • ' 

? VOLTAGE THRESHOLDING SAMPLE 


CHOOSE PLOT VARIABLES. 

ANSWER 'YES' Oft 'Y' PUR EACH PLOTTED VARIABLE DESIRED. 

CAPACITOR VOLTAGE? Y 
CHARGING CURRENT* Y 
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EX-11 


FULL SCALE VOLTAGE*? 10000 
FULL SCALE CURRENT*? 250 


XF SATISFIED WITH PLOT SETUP* ENTER'YES'OR'Y' 
OTHERWISE* YOU CAN 00 BACK AND TRY AGAIN* 
ENTERING 'ABORT'TERMINATES THIS PASS OF OUTPUT* 
SATISFIED? Y 


THE POSSIBLE ROUTINES ARE: 

INPUT# CALCULATE# OUTPUT. TERMINATE. 
ENTER A NUMBER 1 , 2 , 3 * or 4 .? 4 


TERMINATE OR KEEP RUNNING? TERMINATE 
DO YOU WISH TO VIEW PLOT NOW OR 
00 YOU WISH TO STORE SAME FOR LATER? 

INPUT'NOW' OR 'LATER'} DEFAULT* NOW? LSTER 
00 YOU WISH 10 VIEW PLOT NOW OR 
DO YOU WISH TO STORE SAME FOR LATER? 

INPUT'NOW' OR 'LATER'* DEFAULT* NOW? LATER 


FILE HAS BEEN CLOSED 
NO EXIT FROM BASIC 

THIS SHOULD BE THE LAST RETURN FROM THE PEP SUBROUTINE 
THANK YOU FOR YOUR PATRONAGE. »u*nuu.iNt 


TINE : 13*566 


>BYE 

UWIVAC BASIC 14*32:38 8 JUL 78 

tFIN#C 

RUNID: Y05375 PROJECT: 41000 USER: 187360263? 


ITEM 

AMOUNT 


COST 

CPU TIME 0:00: 

12.287 


10*43 

FILE I/O REQUEST 

148 


10,07 

FILE I/O WORDS 

40355 


10*01 

SWAP REQUESTS 

1 


10.00 

SUAP WORDS 

19456 


10.00 

HENDRY USAGE 

0*255 


10.34 

CARDS IN 

1409 


10.14 

PAGES PRINTED 

10 


10.10 

CONNECT MINUTES 

22 


10.18 

SOFTWARE SUPPORT 

2 ? 


10.40 

JOB CHARGE 

1 


10.05 

TOTAL COST 



11.72 

BASED ON RATES FOR 

EVENING 1 

RUNS 


USER BALANCE 


1168*27 

INITIATION TIME: 

14:ii:03 

JUL 

8 # 1978 

termination time: 

14:33:06 

JUL 

8*1978 
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Figure D.4 

Plot Output of Semple PITS Run 


V*TS 
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EX-1. The first line, UWLG, Is the log-on cornua nd from a 
DECwriter, the teletype-like device used for the sample run. Were 
the run made from a PEP terminal, the correct entry would be UWGT. 
The next line (“MACC 33.36 ... ") is the computer's response to 
UWLG. The @RUN statement starts the computer run (as opposed to 
being connected to the lllO's front end hardware which was 
accomplished above). The items given in the RUN statement are: 
user's initials, user's project number, user's I.D. number, job 
cost limit, and “output print page" limit. The cost and print 
limits shown are typical of those appropriate to a one hour run at 
evening rates (0.6 of daytime cost). After the RUN statement is 
entered, the computer responds with RUNID, the run's identification 
number, plus date and time Information. The RUNIO should be 
recorded as it is needed to obtain plot and hard copy print output 
from the computing center. A PASSWORD is then entered, as 
described fully in the Abel Inversion program documentation. 

The BASIC interpreter is then called. The version accessed 
here (4.0.4) is an old version no longer supported by UNIVAC, but 
Is the only version capable of running programs containing loops 
within subroutines which in turn are called from within loops. At 
some time. It should be possible to call" BASIC by saying 


0BASIC CHEMISTRY*WALTERS. 
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rather than what is entered in this sample. No firm date for this 
Is yet known, however. 

Once in BASIC, PITS is called up using the 0LD:PITS command, 
and the RUNNH command starts execution. No hard copy print is to 
be obtained, as hard copy is already being produced on the 
OECwriter, making line-printer output superfluous. Line frequency 
(60 Hz) operation is chosen. The paper was not advanced when the 
opportunity was given with the "HOME?" question. 

The rest of the page shows initialization occurring. In the 
first contiguous block of input (between the "HOME?" line and the 
next blank line), input was given which configured the software 
source as follows: forward resistance, 40 klloohms. Reverse 
biased resistance: 35 megaohms. Inductance: 25 henries. 
Capacitance: 0.015 microfarads. Peak transformer voltage: 

8274 volts. Discharge duration: 40 microseconds (using the "rule 
of thumb" discussed in Chapter III, this corresponds to.a hardware 
spark source discharge duration of 80 microseconds). Initial 
current and time were both set to 0, and initial capacitor voltage 
was set to 6000 volts. Up to 25 breaks per half-cycle are 
calculable, and one half-cycle of break times is to be input. 

There follows a group of Instructions pertinent to inputting 
times for time thresholding. "Fresh 1 * input is chosen, although on 
the first run through the initialization routine, there is no 
prior list of break times so that either "Fresh" or "Add to" input 
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Mould function the same. The break times input are 1000 and 5000 
microseconds after the start of the half-cycle, and the end of 
break time input is specified by entering a break time of zero. 
Break times are not edited on this call. 

Break voltages are entered for only one half-cycle as well. 
The last few lines on page EX-1 give some instruction on the 
entering of break voltages and specify that "Fresh" input is to 
be made. 

EX-2 . A three break pattern is input, with the break 
voltage being 7000, 6000, and 5000 volts. The rest of the top 
two-thirds of the page shown an example of use of the editing 
capabilities of the voltage input routine*. The second break is 
deleted, then reinserted, using listing after each operation to 
show the status of the break voltage list. After the choice 
"Done" is made, initialization is completed and the core control 
routine is accessed. 

The nature of the four possible routines which may be 
accessed from the core routine are largely self-explanatory. 
"Input* is used to access the initialization routine again. The 
only initialization questions which are not re-asked are those 
concerning hard-copy printed output and line frequency. Options 
are provided (as given in the listing), for accessing selected 
portions or all of the other initialization questions. 
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In the example, the first call from the core routine is to 
the Initialization routine, for the purpose of demonstrating the 
editing capabilities of the time thresholding routine. The *1* 
input to the core routine specifies that initialization is 
desired. Initialization option 4 is chosen; only the maximum 
number of breaks per half-cycle, break times, and break voltages 
will be requested by the routine with this option. 

Again 25 maximum breaks per half-cycle are specified, and 
only one half-cycle of break times will be input. "Add to p input 
is specified so that the times typed in on cage EX-1 may be 
edited. 

EX-3 . An additional break at 3000 microseconds is added to 
the old break time list, then deleted again. No further input 
concerning break voltages is given on this initialization call. 

The core routine is then used to call the calculation routine 
(" 2 "), On the first call, calculation method "abort" ("3") is 
chosen, and control returns to the core routine. This gives the 
user a safety valve for getting out of the calculation routine 
after he inadvertently gets in. On the next attempted call, 
routine 123 is specified. Because this is not one of the possible 
routines, fresh 4 input is solicited. The calculational routine is 
again called, and this time, time thresholded calculation is 
specified. Initial conditions are taken as those typed in during 
initialization (at this point there is not information anywhere 






else to provide another legitimate answer. The program does check 
to ensure that some initial conditions are present.). 

Calculations are performed on half-cycle one, and times at 
which breaks are to occur are taken from “this" half-cycle, i.e. 
the times typed in during initialization for half-cycle one. 

Once "this" is entered, the calculation is completed without user 
input, and the control routine comes on line again. At the bottom 
of the page, the calculation routine is recalled. 

EX-4 . Again time thresholding is used in the calculation. 
This pass, however, half-cycle two will be affected by the 
calculations. Initial conditions are based on the results of 
calculations of the previous half-cycle, i.e. the calculation just 
performed on half-cycle one. Thus half-cycles one and two will 
form a contiguous, melded patterned interval. Times are also 
taken from the "previous" half-cycle, so that the break times in 
half-cycle two will be Identical to those in half-cycle one. 

The output routine is then called. This pass through the 
output routine is an example of the problems which can arise when 
printed output is not obtained before plotting is attempted. 

PEPSUB output only is specified, both half-cycles on which 
computation has- been performed are output, and the title on the 
plot is "Time Thresholding Sample". All three quantities 
(capacitor voltage, charging current, and transformer voltage) 
are to be plotted. 
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Next the scaling option is specified. As no information has 
yet been printed, scaling option 3 (user chosen) is impractical. 
Since the peak transformer voltage was 8274 volts, the default 
scaling (15 kV full scale) would be Inappropriate. Scaling based 
on the maximum datum would give a plot with a scale of unknown 
(as yet) and perhaps strange grid spacing. So scaling option 2 
Is chosen, with the peak transformer voltage used as full scale. 
Satisfaction with the setup is indicated, and hard copy plotting 
is enabled. In a subsequent run, the plot just set up was 
obtained, and is shown In Figure D.4, inset A. It happened that 
capacitor voltage exceeded the peak transformer voltage in 
several places, which obscures a good deal of information 
including the break voltages on the plot. Had printed output 
been obtained first, before a plot was attempted, this difficulty 
would have been seen and compensated for by using some other 
input option. 

Meanwhile the next step in the example is to attempt to 
recover some useful information about the time thresholded 
calculations (after all, the calculations worked correctly; just 
the output did not meet expectations). This time, output 
option 2 Is chosen, so that break voltages will be given in 

.v 

addition to a parameter dump. Both half-cycles will be output, 
and the same title will be used. 
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EX-5 . This page shows break data for the two half-cycles 
and the "parameter dump" for the first half-cycle. Comparing 
half-cycles one and two. It can be seen that the break voltage 
is the same for the second break of each half-cycle, but different 
for the first break. Thus initial conditions as typed in were 
not steady-state conditions for this pattern. From the break 
currents, it can be seen that the diode bridge was reverse biased 
for both breaks. 

The parameter dump tabulates hardware parameters and the 
number of breaks obtained in the first three lines. Z 0 , s 2 , and 
are listed across the third line. The fourth line gives 
peak transformer voltage and discharge duration in microseconds. 
Next are tabulations comparing charging current and charging 
voltage at the beginning and end of the half-cycle. When these 
are the same, a stable situation is .indicated and, if iteration is 
being performed, that Iteration is complete. Here, half-cycle one 
is not a stable situation. Finally, the average current for the 
half-cycle is printed, and may be used for average current 
effect corrections if desired. 

EX-6. Half-cycle two parameter dump is at the top of the 
page. Comparing voltage and current at the start and end of the 
half-cycle Indicates that a stable pattern has been computed and, 
if time thresholding were to be continued, the break voltages 
calculated for half-cycle two would continue to be calculated. 
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Next, voltage thresholding will be performed on half-cycle 
one- Recall that the typed in break voltages are still present, 
but that this voltage thresholding calculation will overwrite the 
typed in times. Initial conditions are taken as those which were 
typed in. The manifold chosen is "1", the typed in voltages. 
Hardware limited control and no break except by dint of crossing 
the manifold thresholds is also specified (both melding control 
and first break control are turned off). Satisfaction with the 
set-up is expressed, and the calculation occurs. 

EX-7. A full print of the voltage thresholded charging 
curve Is set up using output option 1. 

EX-8. Here is a full charging curve for the voltage 
thresholded calculation. Some of the information which may be 
gleaned from this tabulation is: 

(1) The diode bridge is initially reverse biased. 

(2) The bridge becomes forward biased at 2147.3 us. 

(3) Breaks occur at 3500.3 us, 4493.1 us, and 5131.9 us. 

(4) Peak charging current is 135.63 mA at 5371.9 us. 

(5) The diode bridge reverse biases again at 6579.7 us. 

This Is also the time at which capacitor voltage peaks: 

8196 V. 

EX-9 . A parameter dump associated with the tabulated 
printout on page EX-8 is given. Convergence of the charging 
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algorithm has not occurred. (Neither voltage nor current are the 
same at the beginning and end of the half-cycle.) 

The remainder of the page sets up a MINIPLOT plot to view the 
voltage thresholded calculation result. Note how full scale 
voltage was specified (10000 volts). 

EX-10 . Here is the MINIPLOT output, showing the voltage 
charging curve. This is a rough plot, but indicates that 10 kV 
full scale is adequate for seeing charging information- PEPSUB 
can now be called with confidence,to get a high quality plot. 

A PEPSUB call is executed at the bottom of page EX-10, and 
all plottable quantities will be put onto the plot. 

EX-11 . Full scale plot voltage is specified as 10000 volts, 
and full scale current is given as 250 mill lamps. 

The termination routine is called, and the decision to 
terminate confirmed. After a first attempt contained a 
typographical error, it is specified that plot is to be obtained 
"later 11 (at a separate run at a PEP terminal rather than at the 
DECwriter which has no plot capabilities). The run is then 
terminated, using BYE and @FIN,C. Several points concerning cost 
are shown in the tail sheet: 

(1) CPU time is mainly taken up in initial interpretation of 
the program, not in continued running. One long run 
with many reinitializations is less costly than many 
short runs. 
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(2) Cards In represents user interaction with the program. 

(3) The sample run took 22 minutes. 

(4) Billing has been changed since the Abel Inversion routine 
was documented; use of BASIC is now billed through a 
Software Support charge. CPU costs have been reduced, 
however, so that total run cost should not be adversely 
affected. 

(5) This run was done at evening rates, which gives a 
saving of 40* compared to daytime rates. The same run 
would have cost $2.87 during the day. 

A separate run was used to obtain plotted output as shown 
in Figure 0.4. Inset A shows some information about the time 
thresholded computations done but does not show all voltage data 
due to the scaling option chosen. Inset B of the voltage 
thresholded data shows a properly constructed plot of all the 
information in the tabulation on page EX-8. 

VI. Variable List 

Tabulated below are most of the variables used in program 
PITS. All variables not tabulated are used only as loop indices. 

A 

Variable _ Usage or Meaning ____ 

A Parameter in call to functions FNC and FNS. 

A1 Number of points computed during a calculation. Also 

used as print output scratch variable. 
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Variable _ Usage or Meaning 


A2 

Instantaneous transformer voltage. Output scratch 
variable. 

A3 

Used as scratch variable for break time Input and as 
and output scratch variable. 

A4 

Interpolated time of diode commutation (time 
thresholding routine). Scratch variable, number of 
break times entered during initialization. Also 
output scratch variable. 

A6 

Auxiliary variable for sorting input break times. In 
calculation routines. 


A6 • (V p /Z 0 ) cos(0- (9 0 +y)) • 

A7 

0/2X|_ ; also used as Xq. 

A8 

cos(0o+y)> FNC(A7). 

A9 

sin(e 0 +y); FNS(A7), also a point counter in the output 
routine. 

AS 

Scratch input variable. 

B1-B9 

Intermediate storage for printed output. 

B2 

Interpolated diode commutation time (voltage 
thresholding routine). 

B3 

Capacitor voltage at time B2. 

B$(10) 

Labels for initialization inputs. 

C 

Parameter taken to mean capacitance in calls to 
functions FNT.FNP, and FNE. 

Cl 

Source capacitance. 

D1 

Calculation thresholding method. 

02 

Number of manifold to be used. 
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Variable 

03 


04 

05 

06 

07 

08 

E 

E(4,250) 

E1.E2 

E3 

E5 

E6 

E7 

F(3) 

61 


_ Usage or Meaning _ . 

Equivalent pattern: break voltage 
Random pattern: maximum break voltage 
Sine pattern: peak voltage 
Ramp pattern: intercept . 

Trapezoid pattern: time at which plateau starts. 

Random pattern: number of break being sought 
Sine pattern: phase 

Ramp pattern: slope . 

Trapezoid pattern: time at which plateau ends. 

Random pattern: voltage of break being sought 
Trapezoid pattern: plateau voltage. 

Conformity control. 

First break control. 

Melding control. 

FNT parameter (voltage). 

Calculated charging voltage curves (capacitor 
voltage). 

Peak transformer voltage. Two variables were 
originally provided in anticipation of some servo 
mechanism for varying transformer voltageto get 
stable voltage thresholding without user intervention. 
Option never designed. 

Maximum allowed input transformer voltage. Set to 32 
kilovolts. 

Typed in initial voltage. 

Most recently computed capacitor voltage. 

Next most recently computed capacitor voltage. 

Flags. F(l):Hard copy option flag. 

F(2):MINIP10T output enable flag., 

F(3):unused. 

to (* 6o/2ir) . 
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Variable 


Usage or Meaninc 


G2 t-to (- 9/2ir). 

G3 Number of the break being sought. 

84 Half-cycle to be used as source of break times (used 
with "this" or “previous" input). Also: Sign of 13. 

65 Sign of 12. Also a loop index. 

(Note: H variables appear only in the voltage thresholding 
routine.) 

HI Capacitor voltage at time 3 T. 

H2 Manifold voltage at time * T. 

H3 Capacitor voltage at time = H6. 

H4 Manifold voltage at time = H6. 


H5 Same as T. 

H6 Most recent time used for computation before time T. 
H7 Interpolated threshold crossing time. 

H8 Manifold at time H7. 

H9 Capacitor voltage at time H7. 

I Parameter in FNT call, used as initial current. 


11 Typed in initial current. 

12 Most recently computed current. 

13 Next most recently computed current. 


14 2*. 

ji 

15 2irf (f Is line frequency). 

16 Maximum allowed breaks per half-cycle. 

1(4,250) Calculated charging current curves. 






J and K Loop indices, 
variables 

K8 Number of random numbers used. 

K9 Flag indicating half-cycle completion. 

L Parameter in FNP and FMT function calls meaning 
inductance. 

Ll Source inductance. 

qi Flag indicating diode bias condition. 

R Parameter in FNT, FNP, FNI, and FNE indicating 
resistance. 

R1 Forward biased source resistance. 

R2 Reverse biased source resistance. 

R(4,9) Parameter storage. Specific meanings: 

R(n,l) Number of data points calculated in half-cyclen. 
R(n,2) Number of breaks in half-cycle n. 

R(n,3) Is there calculated data in this half-cycle? 
R(n,4) Cycle number in patterned interval. 

R(n,5) Capacitor voltage, start of half-cycle. 

R(n,6) Capacitor voltage, end of half-cycle. 

R(n,7) Charging current, start of half-cycle. 

R(n,8) Charging current, end of half-cycle. 

R(n,9) Average current during half-cycle n. 

51 s 2 . 

52 • 

53 Z Q . 

54 Y (radians) . 

55 v p /i 0 • 

56 S2-R1 or S2-R2, depending on which resistance is in use. 

$(4,25) Array of break times, either typed In or computed. 
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Variable ' __ Usage or Meaning __ 

T Parameter In function calls to FHT, FNE, and FNI 

meaning time, in some cases referenced to the beginning 
of the half-cycle, in others referenced to the most 
recent t 0 . 

T Computed time: (e+9 0 )/2n . 

TT e 0 . 

T2 8 0 + Y * 

T3 Coefficient of csinhd function in voltage calculation. 

V R 

T3 * zj - R tot sin(T2)) ' ( Vo + - £ 1 ) • 

T4 Coefficient of ccosh function in voltage calculation. 
T4 * ^ + ^sin(T2) . 

T5 Coefficient of csinhd function in current calculation. 

V 

T5 * jE-(R tot cos(T2)-2X c sin(T2 ))-(IqR^+ZVo) . 

T6 Coefficient of ccosh function in current calculation. 

V 

T6 * I 0 - ^ cos(T2) . 

T7 Typed in initial time t 0 . 

T8 Typed In discharge duration. 

T(4,250) Computed times. 

U(4,25) Typed in break voltages. 

V Output option; plot option. 
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Variable _ Usage or Meaning __ 

VI Initialization option, core option, number of 

half-cycles of break times or break voltages to be 
Input during Initialization, number of half-cycle 
undergoing computation, number of half-cycles to be 
output. 

V2 Print option; scratch initialization input. 

V3 Number of characters in output title; flag whether 
capacitor voltage Is to be plotted. Also used to 
align print columns. 

V4 Flag whether charging current is to be plotted. Also 
used to align print columns. 

V5 Flag whether transformer output voltage is to be 

plotted. Also used to indicate which break time is to 
be removed from the break time list during 
initialization. 

V6 Total number of items to be plotted. 

V7 Scaling option for plots. Offset for successive 

MINIPLOT time axes when more than one half-cycle is 
output In a single call. Several uses during 
half-cycle initialization. 

V8 Number of data points in a given half-cycle (used in 
output routine). Also used in setting y axis scale. 

V9 Flag indicating first pass through initialization 
routine. Also used in choosing source of Initial 
conditions (see statements 14030 to 14068). 

V$,V1$ Scratch input variables for the output routine. 

V5$,V6$ Output image masks. 

W1 Dash code (PEPSUB), symbol code (MINIPLOT). 

* 

W2 Maximum value, horizontal plot axis. 

W3 Minimum value, horizontal plot axis. 

W4 Maximum value, vertical plot axis. 

W5 Minimum value, vertical plot axis. 
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Variable 


W6 

M7 

vn$ 

W2$ 

W3$ 

X1,X2 
Y1.Y2 • 
Z1.Z2 j 

X(1000) 

Y(IOOO) 

Yl$ 


X.Y.Z 

variables 


_ Usage or Meaning _ 

Number of points to be plotted. 

Number of half-cycles to be output. 

Plot status. 

Plot Title. 

Vertical axis label. 

Input parameters to interpolation routine FNL. 

Plot output buffer, X axis. 

Plot output buffer, Y axis. 

Plot abort flag. 

Internal variables for PEPSUB and MINIPLOT. 
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Appendix E 

PROGRAM FOR MINICOMPUTER CONTROL 
OF DISCHARGE TIMING 


I. Introduction 

Software Is described for use with an Automated Data Systems 
(Madison, WI) 1800 A decimal minicomputer for timing (and thus, 
indirectly, voltage) control of discharge triggering. The 
hardware and its operation were described in Chapter III. The 
software, called “Selectabreak" is an assembly language program 
providing inter- and intra-half-cycle discharge timing and either 
manual or automatic choice of patterns from among five user 
supplied patterns plus a “zero break" pattern (no discharges during 
a half-cycle). Up to 25 breaks per half-cycle and control 
intervals as long as 37V 2 days are possible. 

Selectabreak was written so as to minimize execution time 
and memory space required. Linear, easily followable structure 
was sacrificed to achieve these goals. Thus subroutines are 
interwoven and a simple flowchart is difficult to draw. 

A flowchart which is conceptually complete, but avoids 
complications produced by interweaving subroutines where possible. 
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Is shown In Figure E-l. There are two types of operation, manual 
and automatic. The type of operation invoked at startup is chosen 
by appropriately entering numbers in memory (see below) and can 
be changed during execution from the keyboard. In manual 
operation, one pattern runs continuously. In automatic operation, 
a preselected sequence of patterns is rastered through. In 
either case, the total number of half-cycles per control interval 
may be selected. 

In manual operation, one pattern is selected and is 
continuously output until (a) the control interval is over and 
the program stops, or (b) keyboard input indicates a change of 
mode. Different routines are used for zero break operation than 
for nonzero break operation. 

In automatic operation, the different patterns are 
automatically sequenced and the time for which a given pattern 
is used is controlled as well as the total control Interval length. 
Again a separate routine is provided for zero break operation and 
keyboard input may change the type or sequence of operation. 

Program operation can thus be seen to be a number of 
interwoven activities: (1) outputting a given timing pattern 
for discharge timing and triggering, (2) pattern selection, 

(3) half-cycle counting for both Individual patterns and control 
intervals, and (4) input, either prior to or during a run, 
concerning operation sequence. 







ZERO BREAKS PATTERN r-*-FIND PATTERN 



PATTERN CYCLE ■—PATTERN CYCLE 
COUNT COUNT 
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Safety note: To cease pulsing by the digital delay generator _ 

at any, time, press 

Stop — 

Clear keyboard 

24 ~ 

Load address 

Step ■•'•••;” 

If the computer is operating, other simpler procedures may work. — 

The above procedure works from the moment the program is loaded — 

and is immune to RF interference and other possible problems. — 

II. Loading the Program 

The program with a default automatic pattern sequence ready _ 

to run, is on a cassette tape. To load the program, follow 
these steps: 

(1) Computer power on, clear keyboard. Place tape Into j__ 

tape read drive. Zero crossing detector and digital ^ 

delay generator on if program is to be tested as soon : 

as It is loaded. | 

• ' ' • I 

(2) 850, load address 

(3) Enter, the following program (the bootstrap tape loader). _ 

Punch the five digits starting from the left followed _ 

by a “decimal point" which enters the command in s- 

memory. Addresses are provided to facilitate checking cess) 

later. : t.: 
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Address Command 


850 

27003. 

851 

27006. 

852 

11862. 

853 

27008. 

854 

11856. 

855 

11851. 

856 

27090. 

857 

05903. 

858 

03857. 

859 

05857. 

860 

10000. 

861 

11851. 

862 

27004. 

863 

10600. 

864 

11850. 


(4) Auxiliary Information: 

(a) Location 857 is modified when the subroutine is 
run, so must be set before any reruns.- Otherwise 
the program is self-contained. 

(b) The bootstrap loads the first program on the tape 
verbatim starting at location 903. This first 
program should be TREAD/TWRITE, the tape handler. 

(5) To check that entry of the bootstrap is correct, 

(a) Set rotary switch to MEM. 

(b) 850, load address. 

(c) Press "examine" button to raster through memory to 
•'confirm entries are correct. Should an incorrect 
entry appear, it may be corrected immediately. 

For example, if the entry in location 859 were 





could be made to both deposit the correct entry 
and move to location 860. 

(6) Load the main tape handler 

(a) Check tape is loaded, label up and to the rear 
of the drive. 

(b) 850, load address, step. 

(c) Press rewind on tape deck. When tape is done 
rewinding, press stop on deck. 

(d) 862, load address, start. Be sure to press "start" 
exactly once here. 

(e) Set tape drive to "play" with volume control (on 
side of drive) set to 4. Press computer start 
again. 

(f) Computer display should count rapidly 05903, 
05904,... for a few seconds, then stop. Bootstrap 
Is now loaded. Do not change any tape settings; 

A 

go directly to loading the program. 

(7) Loading program "Selectabreak" 

(a) 997, load address. A number 00001 will be 
displayed. Press 131. to enter the program 
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Identification number. The computer is now at 
location 998; if the rotary switch is set to HEM, 
the number 15951 should appear. If it does, go 
to step (7b). Otherwise, go back to step (5). 

If a second error occurs, try "playing" with the 
volume control. 

(b) Press start. When the computer stops, press stop 
on the recorder as well. 

(c) Test program. 

(1) 24 load address. 

(2) Check that delay generator and zero crossing 
detector are on. 

(3) Press start. The sequence 1-2-3-4—5-6-3-2-1- 
6-1-6 should be disalayed twice on the display 
panel, lasting a total of 8.5 seconds. If 
this occurs, program is loaded correctly. 
Common problems and solutions are: 

(a) Computer "hangs" near the start of the 
sequence. Stop computer, check that DDG 
and zero crossing are turned on, check 
with oscilloscope for zero crossing 
pulses, and check that DDG will work in 
"period" mode. Go to location 24 and 
try again. 
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(b) Pattern 4 lasts *» twice as long as other 
patterns. Program did not load 
correctly. First, try recycling to step 
(7a). If that does not work, go back to 
step (5). 

III. User Input and Control 
A. Overview of controls 

There are a large number of items which a user may control in 
this software. Many of them are conceptually interactive. 

8ecause default values for all parameters appear in the program, 
each parameter's effect may be learned independently, though In 
practice all will likely be varied as a group. Starting at the 
level of the control interval and working to finer time units, 
control parameters are: 

(1) Length of control Interval (in half-cycles). 

(2) Operation type (manual or automatic). 

(3) Pattern choice (manual mode) or order of patterns 
(automatic mode). 

(4) Patterned Interval duration for each of the 
automatically rastered patterns. 

(5) Discharge timing within patterns. 

Adjustment of these will be described in order. Then 
procedures for actually running the program will be given. 
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J B. Control interval level commands 

The duration of a control interval is determined in units of 
half-cycles. One hundred twenty half-cycles equal one second. 

The duration of a control interval may be considered to fall into 
one of three categories: 

(1) <2V 2 minutes 

(2) Indefinite, but long 

(3) >2V 2 minutes, but definite. 

If (3) is the case, the additional software discussed in Section V 
below is necessary to achieve control. However, the method used 
to achieve such control is similar to that used in case (1). 

To get essentially continuous operation (case (2)), the 
program is configured to prevent the automatic counter from 
stopping the program. This is done by doing the following after 
the program is loaded and before it is started: 

Clear keyboard 
343 load address 
Clear keyboard, enter. 

If at a later point timed operation is desired, the original 
command must be reinserted: 




1 



Clear keyboard 
343 load address 
11070. (enter) 
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For case (1) control , determine the burn duration desired in 
seconds. Multiply by 120, and enter this number in memory 
location 358, the Master Counter. Example: The default pattern 
lasts 8V 2 seconds. 

8.5x120 * 1020 half-cycles. 

Indeed in the program listing (Section IV) in location 358 is the 
number 1020. 

The operation type is chosen by selecting the "initial mode" 
(location 367). Possible entries are numbers 1 through 8 (actually 
00001 through 00008—lead zeros will be omitted henceforth). 

Numbers 1 through 6 are manual modes; 7 and 8 are automatic modes. 

In automatic mode, control is sequentially given to choosable 
permutations of the manual modes. Manual modes 1 through 5 are 
user settable break patterns. Mode 6 is zero breaks per half-cycle. 
No mode 1-5 should ever be programmed as zero breaks. 

In mode 8, the program starts at the beginning of the mode 
sequence (chosen as described in III.C.2 below), runs through the. 
entire sequence, and goes back through from the start until the 
Master Counter number of half-cycles have been run. Mode 7 

a 

operates in the same fashion except that on startup control 
begins wherever In the sequence control terminated on a previous 
run. This might be at the start, but could also be anywhere in 
the patterned interval depending on where the previous run stopped. 
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C. Choice of pattern order and repetition 

(1) In manual mode the initial pattern chosen runs 
continuously until the control interval is over unless the 
pattern is manually changed. To manually select a pattern 
number while the program is running, the steps are: 

Clear keyboard 

[Hit single key 0 through 8] 

Press 

The new pattern will commense running. Entries 1-8 select modes 
in the same manner as the Initial mode setting described above. 
Mode 0 Is a special entry which stops the program and shuts down 
the 006 so that no further pulsing occurs. In general, the 
sequence "Clear keyboard, enter” or “Clear keyboard, 0, enter” 
will stop sparking and leave the computer in a state correct for 
restarting execution. In some cases RFI may prevent this from 
working. In that case, use the procedure given in the "safety 
note" at the end of Section I above. 

If an illegal entry is attempted, the number will be placed 
in an error trap (location 366) and execution stopped. 

Note that it is possible to switch not only among manual 
inodes but also from manual to automatic modes. When automatic 
execution is occurring, one may also use the keyboard to switch 
to manual modes. 
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(2) For automatic operation the sequence of patterns Is 
stored as a list in memory. Also stored Is the number of times 
each pattern Is to be used before switching to the next pattern 
In the sequence. The ordered list of patterns occupies locations 
400-499, and the list of how long each pattern is to be used 
occupies locations 500-599. In the default sequence, most of 
the patterns are used for 30 half-cycles (Vi,s) before the next 
pattern is accessed. This pattern counting feature is used to 
reduce core space and programming time required compared to simply 
listing the patterns in order (entering the same pattern number 30 
times in a row would have been both tedious and error prone). 

Legitimate patterns are any of the manual patterns 1-6. 

There is no internal check that patterns are correctly chosen. 

Following the list of pattern order and also following the 
list of pattern repetition number, the entry "00000" must be 
Inserted. This is the program flag for indicating list 
termination. 

An example setup would be a pattern that ran as follows: 

30 half-cycles of pattern 1 
25 half-cycles of zero breaks (pattern 6) 

60 half-cycles of pattern 3 
10 half-cycles of zero breaks 

Repeat as long as necessary (limit by the Master Counter). 
The order of patterns is: 1, 6, 3, 6. The order of repetitions 
is: 30 , 25 , 60, 10. So entries in memory would be: 
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Location 


Location 

Entry. 

400 

401 

402 

403 

404 

00001 

00006 

00003 

00006 

00000 

500 

501 

502 

503 

504 

00030 

00025 

00060 

00010 

00000 

There are 30+ 

25+ 60+10 * 

125 half-cycles per repeating 


patterned Interval. It nay be expected that the Master Counter 
would be set to some multiple of 125 half-cycles. 

0. Timing within patterns 

At this point instructions have been given on how to output 
patterned intervals of variable length and sequence. What remains 
is to define the patterns to be output. This is done by storing 
Information for each of the five user definable patterns giving 
(a) delay from the zero crossing pulse for the first discharge 
of a half-cycle and (b) delays for subsequent discharges from 
the preceding discharge. 

For a one-break pattern, only (a) is entered. Data for both 
(a) and (b) are entered as a single list in memory. The only 
difference between (a) and (b) is that (a) must be manipulated 
to account for any asymmetry in the zero crossing detector pulse. 

Suppose a "five-break pattern is to be inserted in pattern 5 
(the default pattern as given in the program listing will be 
used for the example). From computation perhaps, it is known 
that breaks are desired at the following times with respect to 
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the zero crossing of the line (which does not necessarily 

correspond to the zero crossing pulse): 

2000 ys 
3192 ys 
4014 ys 
4741 ys 
5499 ys 

This must be converted to a series of delay times rather 
than absolute times. The first delay remains 2000 ys, defining 
t«0 as the time of line zero crossing. The other delays are: 


3192- 2000 
4014 - 3192 
4741 - 4014 
5499 - 4741 


1192 ys 
822 ys 
727 ys 
758 ys . 


For the zero crossing detector in use, an offset of 160 ys had 

been observed. Thus the first delay has to be increased by 

160 ys to 2160 yS. The list of delays then is 

2160 

1192 

822 

727 

758 

As in Section C above, the end of a list of data is indicated by 

i 

entering a 0 in memory. Pattern 5 may thus be loaded: 
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Location Entry 


800 

02160 

801 

01192 

802 

00822 

803 

00727 

804 

00758 

80S 

00000 


The five user programmable patterns are entered starting at the 
following memory locations: 


Pattern 

Starting Location 

1 

600 

2 

650 

3 

700 

4 

750 

5 

800 (see above example) 


Up to 49 delays per pattern are possible. 


E. Limitations and circumventing them 

Limitations to software use fall loosely into two categories: 
(1) RFI problems and (2) execution speed limitations. 

Radio frequency Interference from unshielded sparks can 
cause the computer to jump out of proper sequencing loops and lose 
control of source operation. Such loss of control is usually 
audible and is readily confirmed using oscilloscopic monitoring 
of capacitor voltage. Use of the safety stop procedure in 
Section I can bring run-away situations under control. Shielding 
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of leads and breaking of ground loops, especially those Involving 
the 2 ero crossing detector, have proven effective in limiting 
RF problems. RFI is lower at 10 breaks per half-cycle than at 
1 break, all else equal. 

The software is sufficiently slow that no breaks may occur 
within 140 us before or after the zero crossing or within 140 us 
of another spark. Further, breaks within 300 us of the end of a 
half-cycle may cause unstable operation if the zero crossing 
pulses are asymmetric. This latter problem may be overcome to 
a degree by triggering only off alternate zero crossing pulses. 
Then delays for two sequential half-cycles are entered as though 
they were part of a single half-cycle. Recall that a half-cycle 
at 60 Hz lasts 8333 us. Then 


Inter-half-cycle delay 


time from last spark of first 
half-cycle to end of first half-cycle 
+ time from beginning of second 
half-cycle to first spark in that 
half-cycle. 


For the five-break pattern given above, the end of the first 
half-cycle occurs 

* 

8333- 5499 = 2834 us 

after the last spark. The inter-half-cycle delay would be 









To string the two half-cycles together, the pattern entered 
would be: 


Location Entry 

800 02160 

801 01192 

802 00822 

803 00727 

804 00758 

805 04834 

806 01192 

807 00822 

808 00727 

809 00758 

810 00000 


Residual problems may arise due to source hardware asymmetry, 
but these may be "tuned out" by slightly varying delays. 

(tote that whenever either a zero crossing or a break Is 
detected by computer hardware, both zero crossing and "latch" 
flags are cleared. Thus the above procedure works on all but 
zero break patterns. Also, the Master Counter will count whole 
cycles, not half-cycles, when such a procedure is used. 

Experience has shown that, in tuning In a pattern, one delay 
should be left unchanging, so that some pattern property remains 
fixed for comparison and nulling. 




F. Running the program 


After loading and setting parameters, press: 

24 load address 
start. 

The program will run, stopping at location 81. 

To rerun the program, whether internal parameters have been 

changed or not, start at location 81. This may be done simply by 

pressing "start" or, if parameters have been changed, by pressing 

81 load address 
start. 

Only in the event of radio frequency interference caused 
shutdown should it be necessary to go back to location 24 for 
a start after the first startup for a day. 

The mode may be manually changed or the run stopped while the 
program is executing using the method from Section III.C above. 

G. Summary 

User settable locations and controls are: 


Item Location 


Master Counter 358 

Initial Mode 367 

Infinite loop 343 

Pattern sequence 400-499 

Pattern repetition 500-599 

Pattern 1 600-649 

Pattern 2 650-699 

Pattern 3 700-749 

Pattern 4 750-799 

Pattern 5 800-849 

Long count timer 371 

(see Section V) 
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IV 

Listing of Program Selectabreak 
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P 


1 


Address 

Tag 


Mnemonic 

Code 

Conment 


24 

Shutdown 


SOB 6 

20116 

Stop DOG 

. . • 

25 

Start 


INZ 

10800 

Initialize 


26 



SOB 6 

20115 

Set OOG to "remote". 


27 



SOB 8 

20118 

“Delay mode". 


28 



SOB 2 

20112 

and 1.0 us resolution 

- 

29 

Restart 


LDA Initmode 

04367 

Set up initial 


30 



STA Mode 

05352 

Operating mode.* 

■ ' — 

31 



CLR Temcount 

09357 

Clear half-cycle counter. 


32 



CLR Error 

09366 

Clear error trap. 

' 

33 



CUR Flag 

09369 

Clear keyboard flag. 


34 

Vector 


Sib Six 

07359 

Choose Mode: 


35 



JMP Manual 1 

11040 

Manual 

: 

36 



JMP Autol 

11125 

Auto 


40 

Manual 1 


JMS Cleanup 

15060 

Clear remains of previous 







half-cycle. 


41 



LDA Mode 

04352 

Set pattern 


42 



STA Patnum 

05353 

number. 


43 



JMS Patload 

15100 

Set data pointers. 


44 



LOA Patnum 

04353 



45 



OAC 

10000 

Display pattern number. 


46 



SUE Six 

06359 

Zero break pattern? 


47 



JMP Manz 

11053 

Yes, zero breaks. 

j 

48 

Cycle 


JMS Latch 

15325 

Output first delay 

i - 

49 



JMS Zerxing 

15295 

Await zero crossing 


50 



JMS Pulse 

15314 

Deliver remaining delays. 


51 



JMS Recyc 

15109 

Recycle to start of pattern. 


52 



JMP Cycle 

11048 

Repeat pattern. 


53 

tenz 


JMS Zebrk 

15280 

Output zero breaks 

1 ." 

54 



JMP Manz 

11053 

until keyboard command inout. 


60 

.Cleanup 


0 

00000 

Finish up previous pattern 







if necessary. 


61 



LDA Flag 

04369 

Access flag 

:y r 

62 



IND 

10010 

Flag-0 then 


63 



JMP0 Cleanup 

14060 

return 


64 



CLA Flag 

09369 

Else clear flag 


65 



LDA Patnum 

04353 

get pattern number. 


66 



SUE Six 

06359 

Is pattern zero breaks. 


67 



JMPI Cleanup 

16060 

Yes—done. 


68 



JMS Last 

15345 

Mo—finish half-cycle. 


69 



JMPI Cleanup 

16060 

End of subroutine. 


70 

Stop 


LDA Patnum 

04353 

Get present pattern. 


71 



SUE Six 

06359 

Zero breaks? 

.!- 

72 



JMP Stop2 

11079 

Yes—stop CPU 

1 i 

73 



JMS Last 

15345 

No—await last break. 


74 



ILA Mode 

04352 

Get mode 


75 



SUE Eight 

06360 

Auto mode? 

. 

76 



JMP Autostop 

11083 

Yes—cock systen for restart. 


77 



JMS Recyc 

15109 

Mo—reset manual pointers. 


78 


* 

JMS Latch 

15325 

Latch out first delay of next 

: 






pattern. 


79 

Stop2 


SOB 6 

20116 

Disable DOG 

'— 
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Address 

Taq 

Mnemonic 

Code 

Comment 

80 


KLT 

10600 

Halt 

81 


ROB 6 

20126 

Enable ODG 

82 

83 

Autostop 

JMP Restart 

IU Mdcnt 

11029 

03355 

Reinitial ize and go. 
Increment half-cycle count 

84 

STA Mdcnt 

05355 

for pattern. 

85 


SUE Mdcntmx 

06356 

Reached pattern max. 

86 


JMP Stoo3 

11090 

half-cycles? 

Yes—set to next pattern 

87 


JMP Stop2-2 

11077 

Mo—shut down. 

90 

Stop3 

JMS Pataqu 

151 SO 

Get info, for next pattern. 

91 

LDA Patnum 

04353 

Get pattern numoer 

92 


SUE Six. 

06359 

Zero breaks? 

93 


JMP Stop2 

11079 

Yes—Shut down 

94 


JMP $fcop2-2 

11077 

No—set up delay, then 

100 

Patload 

% 

00000 

shut down. 

Set pointers at start of 

101 

LNQ Inert 

34364 

next pattern. 

Compute pattern 

102 


MPY Patnum 

38353 

Starting address. 

103 


SMQ Stdpnt 

35351 

Stdont * 

104 


LDA Base 

04363 

Patnum* 50+ 550 

10$ 

106 

107 


ADD Stdpnt 

STA Stdpnt 

JMS Recyc 

01351 

05351 

15109 

Set counter to 

108 


JMPI Patload 

16100 

first point; return 

109 

Recyc 

» 

QOOOO 

Set counter to first delay 
location 

110 


LOA Stdpnt 

04351 

Get address 

111 


STA Opnt 

05350 

Load counter/pointer 

112 


JMPI Recyc 

16109 

Return 

115 

Automdst 

* 

00000 

Reset auto-sequence pointer 

116 

IU Six 

03359 

Set mode 

•117 


STA Mode 

05352 

to 7 

118 


CLR Seq 

09354 

Move to first 

119 


JMPI Automdst 

16115 

pattern in sequence. 

12$ 

Autol 

JMS Cleanup 

15060 

Clear history. 

126 


LOA Mode 

04352 

Get mode. 

127 


SUE Eight 

06360 

7 or 8? 

128 


JMS Autondst 

15115 

8—start at beginning 

129 

Auto2 

JMS Pataqu 

15150 

Get pattern oointers. 

130 

LOA Patnum 

04353 

Get pattern number. 

131 


SUE Six 

06359 

Zero breaks? 

132 


JMP Autoz 

11142 

Yes—go to routine; 

133 

Cycles 

JMS Latch 

15325 

No—output first delay 

134 

JMS Zerxing 

15295 

Await zero crossing 

135 


JMS Pulse 

15314 

Deliver remaining delays 

136 


JMS Recyc 

15109 

Sot ud next half-cycle 

137 


IU Mdcnt 

03355 

Increment half-cycle 

138 


STA Mdcnt 

05355 

counter for this pattern 

139 


SUE Mdcntmx 

063S6 

Move to next oattern? 

140 


JMP Auto2 

11129 

Get next pattern. 

141 


JMP Cycled 

11133 

Stay with present pattern. 





•JU- 










182 


STA Patnum 

183 


JUS Patload 

184 


JUS Latch 

185 


I NO 

186 


LDA Stdpnt 

187 


STA Zerlatch 

188 


LDA Six 

189 

* 

STA Patnum 

190 


JKPIncseq 


15280 

03355 

05355 

06356 

11129 

11142 

00000 

04354 

01361 

05365 

10010 

04365 

14171 

05353 

10000 

04354 

01362 

05365 

10010 

04365 

05356 

09355 

15100 

04353 

06359 

11173 

11192 

09354 

11151 

03354 

05368 

01361 

05365 

10010 

04365 

06359 

11195 

14197 


05353 

15100 

15325 

10010 

04351 

05370 

04359 

05353 

11192 


Output zero breaks 
count half-cycles of 
this oattern. 

Done with pattern? 

Yes— get next pattern? 

No—stick with zero breaks. 
Pattern acquisition and 
set up routine. 

Access 

number 

of 

next 

pattern. 

If pattern * 0. restart sequence* 
Set pattern number. 

Oisplay pattern number. 

Access number 
of half-cycles 
This pattern 
is to be 
used. 

And store same. 

Clear counter. 

Set start address of delays. 

Get pattern number. 

Zero breaks? 

Yes—find first nonzero breaks. 
No—increment sequence number. 
Restart sequence. 

Access pattern. 

Find first post 2 ero breaks 
delay time. 

Look forward; 

find 

next 

pattern 

number 

Zero breaks aqain? 

Yes—try again 
No—end of sequence? 

If yes—start at beginning 
again. 

Latch out first 
post 2 ero breaks 
delay. 

Set up dummy 
delay for use in 
clearing flags. See 289-290. 
Reset pointers to 
zero breaks. 

Increment sequence counter. 





Address 

Taq 

192 

Incseq 

193 


194 


195 

Again 

196 


197 

Redo 

198 


280 

Zebrk 

281 


282 


283 


284 


285 


286 


287 


288 


289 


290 


291 


292 


293 


294 


295 

Zerxlng 

296 


297 


298 


300 

Kybd 

301 


302 


303 


304 


305 


306 


307 


308 


309 


310 


311 


312 


314 

Pulse 

315 


316 


317 


318 

Cont 

319 


320 


321 



Mnemonic Code, 


Comment 


l LA Seq 
STA Seq 
JMPI Pataqu 
ILA Zercnt 
JHP Zersearch+1 
CLA 

JMP Zersearch+1 

0 

SOB 6 

JMS Zerxlng 
aft Zercnt 
ILA Zercnt 
STA Zercnt 
SUE Incre 
JMP .+2 
JMP .-4 
LOA Zerlatch 
SLHRO 
ROB 6 

JMS Cyccount 
JMS Kybd 
JMPI Zebrk 
0 

SLSNF2 

JMP I Zerxlng 
JMP .-2 

0 

RKB 

JMP .+2 
JMPI Kybd 
JMP0 Stop 
STA Mode 
ILA Error 
STA Flag 
LOA Mode 
SIG Eight 
JMP Vector 
STA Error 
JMP Stop 

0 

JMS Latch 
JMP Cont 
JMPI Pulse 
SLRTON 
SLSNF 1 
JMP Pulse+1 

JMP .-2 


03354 

05354 

16150 

03368 

11174 

10100 

11174 

00000 

20116 

15295 

09368 

03368 

05368 

06364 

11289 

11284 

04370 

27580 

20176 

15339 

15300 

16230 

00000 

27500 

16295 

11296 

00000 

10700 

11304 

16300 

14070 

05352 

03366 

05369 

04352 

07360 

11034 

05366 

11070 

00000 

15325 

11318 
16314 
27503 
27505 
11315 

11319 


Increment sequence 
pointer. 

Return. 

Go to next pattern in 
Search of nonzero breaks. 

Go back to start of sequence 
in search of nonzero breaks 


pattern. 

Zero breaks run routine 
Shut down 00G 
Await zero crossing 
Initiate lockout loop. 

Run loop 
counter 

Oone with 1 ms delay? 

Loop over—jump out 
Keep looping. 

Latch out fake delay 
to clear flags. 

Turn DOG on again. 

Count total half-cycles 
Check for user input 
Return 

Await zero crossing 
look for flag 
flag found—return 
no flag—look again 
Run time input routine 
Look for input 
Input found—use it 
No input—return 
lnput*0; stop. 

Set mode based on Input. 

Set flag indicating 
input occurred. 

Is mode 
legal? 

Yes—use it 

no—store mode in error wrap, 
and stop. 

Latch out oattern. 

Latch out delay 
continue with oattern. 

End of half-cycle; return. 
Retrigger on. 

Await spark firing. 

Spark fired—latch cut next 
delay. 

No spark yet; wait. 
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Address 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 


356 

357 


358 

359 

360 

361 

362 

363 

364 


365 

366 

367 


Tag Mnemonic Code, 


Comment 


Latch 


Eohs 


Cyccount 


last 


Variables 


$ 

00000 

IND 

10010 

LDA Dpnt 

04350 

JMP0 Eohs 

14333 

SLRD 

27580 

I LA Opnt 

03350 

STA Opnt 

05350 

JMPI Latch 

15325 

JMS Cyccount 

15339 

JMS Kybd 

15300 

0MS Last 

15345 

1LA Latch 

03325 

STA Latch 

05325 

JMPI Latch 

16325 

0 

00000 

1LA Temcount 

03357 

STA Temcount 

05357 

SUE Hastrcnt 

06358 

JMP Stop 

11070 

JMPI Cyccount 

16339 

i 

00000 

SLRTOF 

27504 

SLSMF1 

27505 

JMPI Last 

16345 

JMP .-2 

11347 

Opnt 

00600 

Stdpnt 

00600 

Mode 

00007 

PatniA 

00001 

Seq 

00000 

Mdcnt 

00000 

Mdcntnx 

00100 

Temcount 

00000 

Hastrcnt 

01020 

Six 

00006 

Eight 

00008 

Forhun 

00400 ' 

Fivhsm 

00500 

Base 

00550 

Incre 

00050 , 


Output delays. 

Get 

delay tine 

if*Q, end of half-cycle 
latch out delay 
Increment pointer to 
next delay. 

Return. 

Count total half-cycles. 

Look for user input. 

Await tast break. 

Increment return address. 

Return to location 1 
instruction after normal 
return address. 

Count half-cycles. 

Count half-cycles. 

Save count. 

Total cycles done? 

Yes—stop 
So—continue 

Await Tast break of half-cycle. 
Retrigger disable 
Break yet? 

Yes—return. 

So—wait. 

Address of next delay 
Starting address of present 
pattern delays. 

Operating mode 1-8 
Pattern number in use. 

Position in auto sequence 
Half-cycles fired in present 
pattern. 

Total half-cycles to be fired 
of the present pattern. 
Half-cycles so far in control 
interval 

Total half-cycles in control 
interval 
digit S 
digit 8 
Used to access 
auto-sequence 
information and 
pattern delays 


(Incre is also used to generate 


Scratchadr 

Error 

Initmode 


the zero breaks delay.) 

00400 Address scratch pad. 

00000 Error trap 0»no error 

00008 Mode at start up. 



!3r- 


i; 


' ' -E- 
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Address 

Tag 

Mnemonic 

368 


Zercnt 

369 


Flag 

370 


Zerlatch 

400 

Pattern Order 

Sample 

<01 

402 

403 

404 

405 

406 

407 

408 

409 

410 



411 

412 


Sample 

500 

Half-cycles 

SOI 

Per Pattern 



502 

503 


504 

505 

506 

507 


508 

509 

510 

511 

512 


600 

601 

Break Patterns One 

650 

651 

652 

Two 

700 

Three 

701 

702 

703 


750 

751 

752 

753 

754 

Four 

800 

801 

802 

Five 

803 

804 

80$ 

> 


Code Comment _ 

00000 Counter for zero breaks. 

00000 Oata input flag. 

01000 Dutiiny delay for zero breaks 

latch-out. 

00001 

00002 

00G03 

00004 

00005 

00004 

00003 

00002 

00001 

00006 

00001 

00006 

00000 

00030 120 half-cycles*! second 

00030 
00030 
00030 
00030 
00030 
00030 
00030 
00030 
00060 
00120 
00060 
00000 
04500 
00000 
02000 
04000 
00000 
01500 
03000 
03000 
00000 
01000 
02000 
02000 
02000 
00000 
02160 
01192 
00822 
00727 
00758 
00000 
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Address Tag Mnemonic Code Consent 

Additional code for prolonged control intervals (> 2 l / 2 minutes) 


200 

Longcyc 

0 

00000 

Start of long count routine. 

201 


CLft Temcount 

09357 

Clear short counter. 

202 


ILA Blgcnt 

03372 

Count long cycle. 

203 


SUE Blgmax 

06371 

Done? 

204 


JMP Longreset 

11207 

Yes—reset and stop 

205 


STA Bigcnt 

05372 

No—save count 

206 


JMPI Longcyc 

16200 

and continue 

207 

Longreset 

CLR Blgcnt 

09372 

Clear counter for next run. 

208 


JMP Stop 

11070 

Stoo 

343 


JMS Longcyc 

15200 

Call long count routine. 

371 

Blgnax 

6 

00006 

Number of long cycles to be run 

372 

Blgcnt 

0 

OCOOO 

Long cycle counter. 


V, Control Intervals Longer than 2V 2 Minutes 


The last section of the program listing gave modifications 
to the standard Selectabreak package which allow control interval 
longer than minutes. In fact, control intervals of over one 
month are feasible. The routine works as follows: When the 
Master Counter indicates that the usual Selectabreak control 
Interval is over, instead of stopping, a "long cycle counter' 1 is 
incremented. The normal program is instantaneously rerun (in any 
desired mode) until a fixed number of long cycles have occurred, 
at which time the program stops. Thus user control of prolonged 
control intervals consists of loading the modified program from 
tape (program 132) and entering a maximum for the long cycle 
counter in a manner analogous to the Master Counter. This 
additional input goes into location 371. The total number 
of half-cycles for the long control interval is the number in 
location 371 times the number in location 358. In the defaults 
on the tape, location 371 - 6, location 358= 1020 as above. So 
the net burn is 6* 1020 half-cycles or 6*8% seconds or 51 s. 

The only statement changed from the original program is 
statement 343 which is changed from 11070 to 15200. Other 
statements are additions. 

Note that the long cycle counter is reset at the end of a 
run, not at the beginning. Thus if the program is stopped 
manually from the keyboard or by RFI, the long cycle counter 
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(location 372) must be reset to "0" before another run is made. 
If a run is stopped under counter control, then no manual 
resetting is necessary. 

Note that the Instructions for program loading are the same 
as those given in Section II except that the number 132 is 
substituted for 131 throughout step (7). 


VI. Variable List 

Name Location_Meaning or Use. 


Again 

195 

Start again at beginning of auto-sequence 
pattern listing looking for a nonzero break 
pattern. 

Autol 

125 

Beginning of auto-sequence routine. 

Auto2 

129 

Get next pattern in sequence and branch for 
zero or nonzero breaks. 

Automdst 

115 

Reset pointers to start of auto-sequence. 

Autostop 

83 

During shutdown leave system ready to run in 
mode 7 on startup if desired. 

Autoz 

142 

Output zero breaks during auto-sequencing. 

Base 

363 

a550. Used In computing addresses of 
pattern delay data. 

81gent 

372 

Long cycle counter. 

Bigmax 

371 

Value of Bigcnt when program is to halt—set 
by user. 

Cleanup 

60 

Finish off previous half-cycle following 
keyboard input. 

Cont 

318 

Awaits spark firing in mid-pattern (all but 
last break). 
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Name Location _ Meaning or Use 


Cyccount 

339 

Runs the Master Counter. 

Cycle 

48 

Output manual nonzero break pattern. 

Cyclea 

133 

Output auto mode nonzero break pattern. 

Opnt 

350 

Address of next delay. 

Eight 

360 

Digit 8. 

Eohs 

333 

Portion of latching routine invoked after 
last delay is latched out. 

Error 

366 

Records illegal keyboard entries during a 
run. 

Fivhun 

362 

Address of start of pattern repetition 
information. 

Flag 

369 

Indicates when keyboard input occurred. 

Forhun 

361 

Address of start of pattern order’ 
Information. 

Fullclr 

171 

Gone through auto-sequence—reset to start 
of sequence. 

Incre 

364 

Number of memory locations per set of delay 
times. Also used to generate a waiting 
period in zero break pattern. 

Incseq 

192 

Increment sequence position in auto-sequence 
mode. 

Inltmode 

367 

Mode when program is started. 

Kybd 

300 

Access runtime keyboard input data. 

Last 

345 

Await last break of pattern. 

Latch 

325 

Latch out delays to digital delay generator. 

Longcyc 

200 

Routine to allow > 2 l / 2 -minute control 
Intervals. 

Longreset 

207 

Clear long cycle counter and stop. 
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Name 

Location 

Meaninq or Use 

Manual 1 

40 

Begin manual mode operation. 

Hanz 

53 

Manual operation zero breaks routine. 

Mastrcnt 

358 

Total half-cycles for normal (as opposed to 
long) control Interval. 

Mdcnt 

355 

Number of half-cycles output in present 
pattern. 

Mdcntmx 

356 

Value of Mdcnt when new pattern is to be 
accessed. 

Mode 

352 

Present operating mode 1-8. 

Pataqu 

150 

Set up next pattern in auto-sequence. 

Patload 

100 

Set pointers at start of new pattern. 

Patnum 

353 

Present pattern 1-6. In manual mode, 
Patnum=Mode. 

Pulse 

314 

Burp out a half-cycle of break pattern. 

Recyc 

109 

Manual mode pointer reset to first delay of 
pattern. 

Redo 

197 

Go to start of list in search of nonzero 
break pattern. 

Restart 

29 

Startup except on initial turn on; best 
accessed from locations 24 or 81. 

Scratchadr 

365 

Address scratchpad for accessing delays. 

Seq 

354 

Position in auto-sequence list. 

Shutdown 

24 

Initial command and general off switch. 

Six 

3S9 

Digit 6. 

Start 

25 

Initialize system. 

Stdpnt 

351 

Starting address of delays for present 
pattern. 
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Name 

Location 

Meaninq or Use 

Stop 

70 

Shutdown routine. 

Stop2 

79 

Terminal shutdown steps. 

Stop3 

90 

Set up buffers for correct states upon 
restart. 

Temcount 

357 

The Master Counter. 

Vector 

34 

Choose manual or auto mode. 

Zebrk 

280 

Output one half-cycle of zero breaks. 

Zercnt 

368 

Counter used in zero breaks delay loop. 

Zerlatch 

370 

Contains first post-zero breaks delay during 
an auto mode zero breaks interval. 

Zersearch 

173 

Find first nonzero breaks pattern and first 
delay thereof. 

Zerxlng . 

295 

Look for zero crossing occurrence. 
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Appendix F 
INSTRUMENT OPERATION 

This appendix contains an outline for using the 5 m 
spectrograph/time resolved spectrometer employed in studying 
the spark discharge. It presupposes knowledge of operation of 
the 1800 A computer as given in Appendix E. Other helpful 
Information appears in D. M. Coleman's thesis. 

I. Use of 1 m Survey System 

A. Electronics setup 

(1) Position stand on rail. 

(2) Position source so electrode power leads can 
comfortably be attached to stand. 

(3) Ground source and rider carrying stand. 

(4) Check (3) with VOM. 

(5) Ground oscilloscope and computer cart. 

(6) Plug zero crossing plug into front of source. 

(7) Plug TM-27 into source; connect TM-27 output to 
thyratron grid input. 



931 


(8) Plugin'scope and computer cart—use two prong plugs. 

(9) Bring up 1800 A with desired pattern. 

(10) Oscilloscope on. 

*(1T) Connect high voltage probe to oscilloscope, then to 
source. 

(12) Short source gap. 

(13) Warm up source. 

(14) Select diode polarity and Inductance of source (also 
capacitance If applicable). 

*(15) Connect discharge waveform monitor to'scope (do not 
disconnect high V probe at 'scope unless it is 
disconnected at the source too). 

(16) Connect computer cart control output pulses to TM-27; 
TM-27 on. 

*(17) Match V or 1 waveform on 'scope as you 

(a) safety off 

(b) deadman on 

(c) computer on (as desired) 

(d) deadman off 

(e) computer off 

(f) safety on 

(18) Keep gap shorted and adjust pattern. 
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Gap setup 

(1) Mount electrodes. 

(2) Set gap about ERL and with proper spacing using VOM, 
height gauge, etc. 

(3) Connect argon; set initial flow. 

(a) if tank regulator is at 20 psi then 

(b) set rotameter at 11.3 to get 8 ml/s of Ar. 

(4) Rotate electrode. 

(5) Connect leads from source to gap; select initial 
cathode at this time (GND electrode = Initial anode 
electrode connected to Lg = initial cathode). 

*(6) Repeat step A.17—adjust Ar flow for stability. 

Wavelength reference setup 

(1) Mount globular arc electrodes in arc-stand jaws 

(a) globule In lower jaw, roughly level with centerline 
of viewing ports 

(b) Graphite or iron pin for upper electrode—allow 
for carriage travel so electrodes can be touched 
to Ignite arc. Geometry: 

viewing port — [ /*>—. - j— Fe globule 

Cu globule holder 


(2) Connect cooling water 

(a) distilled water is pumped through stand. 

(b) heat exchanger water, filtered on the lab's north 
wall, should be at 20 psi. 

(3) Oecide if glass UV filter is to be.used (order sorter). 
Position appropriately. 

(4) Connect power leads from arc source to stand-red 
lead * anode s to globule. 

(5) Test the arc (instructions on power supply, "cattle 
prod" for shorting electrodes available if racking of 
jaws not desired). 

(6) Connect Cu hollow cathode lamp to power supply. Surge 
V to start, then adjust to 10 mA. Allow ~ one-half 
hour warm up before use. 

(7) HCDT ("hollow cathode discharge tube") is used directly 
behind the spark stand. To do this 

(a) rack top electrode up 0.15 inch 

(b) place rider for HCOT behind stand, and against rail 
stop; this necessitates disconnecting gap to source 
leads 

(c) place HCOT in kinematic mount on rider. 

Optics setup 

(1) Open covers of two 1 m focal length parabolic mirrors* 

(2) Remove lucite cover of plane transfer mirror. 
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(3) Remove lucite covers of two small arc transfer mirrors; 
r emo ve demountable mirror from optical path. 

(4) Set entrance slit to desired width (table attached- 
first two columns are for original equipment slits, 
last column is for in-house mounted slit without 
exit slit. Find width desired in left-hand column; 
correct setting for micrometer is in body of table.). 

(5) Set fishtail for 5 mm slit height. 

(6) Set grating to desired wavelength. If using filmback, 
set X to 150 A shorter wavelength than shortest X line 
to be observed. Longer X are at right of film. 

(Example: To observe CuI3247.74 A line at left of 
film set counter at 3097 A or. less ; 3050 A would 
work well.) 

(7) Tilt camera transfer mirror so focal plane receives 
light (lever on front of spectrograph pointing to "in".) 
Be sure opening where exit slit could go either has a 
slit in place or is capped (this controls stray light). 

(8) Load film; insert holder in camera back and rack holder 
to first shooting position (3.5 cm). 

*E. Run sequence 

(1) Set fishtail as per D.5 above. 

(2) Room lights off-reds are okay. 
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footnotes to Table F.l 

' desired! 6 measurements; extrapolate from narrower slits if 


Do not attempt these settings--micrometer win - 

movement of head or snort. ^.ItSiSTiiilllblSS!. 
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(3) Spark source and gap connected, argon on, electrode 
rotating. 

(4) Oarkslide up! Hands off the racking mechanism until 
step (15). 

(5) Source safety off, high voltage on. 

(6) Shutter open. 

(7) Computer on—generates timed burst to expose film. 
Exposure guide: At two breaks per half-cycle a 2 s 
exposure works well from 2300-6500 A. 

(8) Shutter closed, high V off, safety on. 

(9) Push fishtail in all the way—the bottom hole of the 
Hartmann diaphram will be aligned with the slit. Call 
this hole "# 4“ for future reference. 

(10) Disconnect gap from source; rack upper electrode up 
0.15 in. Mount hollow cathode. 

(11) Open shutter to lay down HC0T reference spectrum. 

20 s-1 m gives reasonable exposures. (Use shorter 
of these exposures at >5500 A; I shot all my spectra 
at 20 s, but some reference lines in the violet and 
UV are too weak.) 

(12) Mount arc transfer mirror that was removed in step D.3 

> 

above. Set Hartmann diaphram to hole #1 by pulling 
diaphram out until the detent engages for hole 4. (It 
may be wise to try this a few times before a run is 
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attempted when the shutter is not mounted. Thus feel 
and visual alignment can be compared.) 

(13) If X < 4100 A , run arc without a filter; if 

X >4100 A, use glass filter to prevent order overlap. 

(14) Shoot arc spectrum 

(a) light arc 

(b) shutter open 2s (X <4100 A); 5 s (X >4100 A) 

(c) shutter closed 

(d) leave arc on 

(15) Rack plate. Set new X for exposure. 

(16) Repeat step (14), except arc is already on, and should 
be turned off when done. 

(17) Remove arc transfer mirror placed in optical path in 
(12) above. 

(18) Repeat steps (9)-(ll) Inclusive. 

(19) Remove HCDT and rider from rail. Reconnect spark gap 
to source and set electrode spacing. 

(20) Repeat steps (1), then (5)-(8). 

(21) Dark slide down whenever pausing or winding film. To 
preserve X identity among reference and unknown (spark) 
spectra, do not pause or lower dark slide between steps 
(5) and (15) or between (16) and (20) inclusive. 

Shutdown procedure 

(1) Argon off, electrode unplugged. 



(2) Safety on. 

(3) Mirrors and slits covered. 

(4) Com puter off or at least stopped (i.e. TM-27 not being 
fed trigger pulses). 

(5) Clean up arc stand. 

16) Cooling H 2 0 off (at pump and wall). 

*0o not operate source unless probe is connected to scope or 
some alternative ground. Otherwise dangerous voltage appears at 
the probe output. 

II. Use of 5 m Spectrograph Photographically 
A. Complete Sections A, B, and C.1-C.3 of Section I. 

8. Set up of 5 m optics 

(1) Choose wavelength to be observed. 

(2) Mount entrance slit on 1 m predisperser-use entrance 
slit without exit slit. i.e. the slit mount with a 
black tube where the exit slit could be. 

(3) Set slit width and fishtail. Diffraction limited 
slit widths: 



\ 

Slit Width 


2000 A 

10 urn 


4000 A 

20 pm 


6000 A 

30 pm 
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This applies onlxwhen 5 m spectrometer Is used-widths 
to 10 or even 5 p. are useable on 1 . spectrometer alone. 

(4) Set 1 m grating to desired wavelength. Account must be 

made for slight system misalignment. Thus: To get 

throughput of wavelength X. set X counter of predlsperser 
at 

X + 4 A . 

Example: To get the Cul 3247.54 A resonance line 
through the system, set the predisperser at 
3247.5 + 4 * 3251 - 5 ^ • 

(5) Open covers of 8 in. camera and collimator mirrors. 
Covers should not vignette any light beams, but should 
also be opened only as far as necessary so that the 

cover can act as a light baffle- 

(6) Slide the focal plane cross rail/plane transfer mirror 
assembly so that the south cross rail support rider 
touches the rail stop at the south end of the east 
out-rider rail. The transfer mirror rider should touch 
the opposite corner of the south cross rail support 
rider, and the other cross rail should in turn touch 
the mirror support rider. The whole assembly forms a 
sandwich with the mirror rider in the center and cross 
rails on the sides: 





(7) Uncover the plane transfer mirror. Mount the film back 
on the cross rails. Push it forward until the dial 
indicator shows the film back to be in focus ±0.001 in. 
from the value on the black Dymo labeling tape on the 
rider. (The white label with black pen lettering is 
from D. M. Coleman's original focussing and is left 

on the rider for future reference.) 

(8) Remove the lucite grating cover. Touch only the sides 
of the cover! Work slowly and carefully to avoid at 
all costs damaging the grating- 

(9) Set the grating angle (counter is on grating mount). 
Five-digit counter has decimal point after first two 


digits thus: 
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dd.fff 

angle. In fractional 
whole degrees degrees 

6rat1ng equation: 

n X » 3.33073*10 4 sine . 

(Example: for n * 3 

X - 3587 A CA1 II) 

3*3587 3 33307.3 sine 

■ Mzh ' °- 32308233 

6 » 18.849° ). 

Mote both the numerical grating constant and wavelength 
are In angstroms. Start at least 0.3° below the desired 
angle and adjust higher to the angle desired. This 
prevents problems with backlash In the gears. 

(10) Load camera back with plate or film. 

C. Initial run setup 

(1) Prepare electrodes and stand (Argon on, electrodes 
aligned, rotating as appropriate.) 

(2) Erect light baffles: 

(a) cloth completely around spark stand 
* 

(b) large metal baffle around arc 

(c) north cover of spark 1 m first collection mirror 
parallel to cross rails (to block slit reflections) 


3U- 


&r. 
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(4) when and only when arc is in use, cover front 5 m 
focal plane transfer mirror may be placed behind 
the last arc transfer mirror to block extraneous 
arc radiation: 



(3) All lights off. Ooors light sealed. All electronics 
lights covered insofar as is possible, commensurate 
with safety and conduction of the experiment. 

Run 

(1) Shutter and darkslide on focal plane open. 

(2) Fire spark for desired exposure. 

(3) Shutter closed. 

(1) Arc on. 

(2) Shutter open. 

(3) To keep arc lit, feed electrodes together ^ 1 mm every 
minute or two. 

(4) Shutter closed. 
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3. Exposure guide . For a line showing good Intensity near 
3100 A in 2 s in first-order on the 1 m system, the 5 m exposures 
are roughly as follows: 


Order 

Gratinq 0 

Time 

Observed Intensitv 

i 

5.340 

5 m 

Faint but clear 

4 

21.857 

2 m 

Good exposure 



5 m 

Overexposed 

7 

40.655 

8 m 

Barely visible 


Grating blaze Is 1 pm first-order (17.472°). Rule of thumb: 

Near blaze, exposure time in seconds on the 1 m is exposure time 
in minutes on the 5 m. This is a first approximation only! 

E. Clean up 

(1) All 1 m clean up Is the same. 

(2) Cover 5 m grating and mirrors. Turn the stepper motor 
power supply off. 

F. Note on stepper motor. 

To slew the grating, start at a low speed and increase the 
stepping rate while the motor is running. Otherwise torque is 
too low and motor freezes in position. 

A 

III. Use of 5 m Spectrometer with Time Resolution 

The procedure outline will be typical of that used to generate 
unipolar and bipolar time resolved data May 1-June 15, 197r 
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should be regarded as a procedure which works, but not as a 
definitive approach. 

A. Electronics setup 

(1) Position source and stand. 

(2) Ground source; check with VOM. 

(3) Plug TM-27 into source and connect Thyratron trigger 
lead to rear of TM-27. 

(4) Connect computer cart to ground and plug into wall 
using two prong adapters. 

(5) Plug zero crossing into barrier strip using appropriate 
adapter. This is needed for RFI reduction. If the 
source In use runs off the 250 V main, there will be a 
30° shift of the zero crossing pulse with respect to 
the source charging line. 

(6) In addition to the standard 1800 A/Digital Delay 
Generator setup, obtain a pulse generator and a second 
BNC delay generator. A delay line may also be Inserted 
if desired as described below; its use may prove 
unnecessary. 

(7) To the output of the BNC which is Interfaced to the 
1800, attach two BNC "T" connectors. This gives three 
outputs. Connect one of these to the shielded "Delay" 
line to the 1800 A. The other two connections will be 
mentioned shortly. 
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(8) Connect the zero crossing detector to the computer. 

Turn on the computer and load the program. 

(9) If delay line is to be used, connect it to the BNC 
output and the trigger input of the TM-27 . 500 nS 


delay is appropriate. 

( 10 ) Turn on digital oscilloscope. Set to ±10 V full 

scale. Attach P6015 high V probe. Using a OC power 
supply, set "R5" to get DC signal level of 
scope/probe combination accurate to 15 or better. 
Then, using the square wave output of a Tektronix (or 
other) oscilloscope calibrator, tweek C 2 , c l’ an 
r to get the top of the square wave as observed flat 
„ or better. Connect probe to source .ben done 

with calibration. 

HO With gap shorted, use computer and digital 'scope to 



set a break pattern. 

(12 ) connect the second S»C delay peneretor: 

00 TOPPer In connected to the third branch of 

delayed output on 8»C *'■ 

... switch to external clocx 
.. X n _ rear of generator, swiwn 

W and^wnnect "cloch 1n“ on this BBC to "clock out 
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(14) 


(15) 


Connect the positive Oatapulse output to the 
oscilloscope through a 50 0 terminator. Adjust 
amplitude of pulse (use internal trigger) to 10 V. 
Pulse width: 100 ns or less. 

Set Oatapulse to external trigger. Connect positive 
output (untermlnated) to trigger input of framing 
camera. Turn framing camera on low voltage only. 
Also, check at this time that camera mechanical 


shutter is closed. 

(16) Connect framing camera monitor to 1 A1 plugin through 
a so si terminator. To the other input, connect the 
discharge current transformer monitor lead. 

(17) Connect "initial output" of BNC 42 to the B trigger 
input of the Tektronix 'scope. Set trigger level. 

For this purpose, switch BNC 42 to "period" mode. 
When all set, switch to "Delay" mode. Also, set to 
fastest clock rate (switch at leftmost setting). 
Connect "delayed output" of BNC 42 to Oatapulse 
trigger in. 

(18) Turn on computer (source off). Set trigger level on 
Oatapulse so that monitor signal appears from TRW 
came ra. Convenient setting for BNC #2: 3.0 us 
delay. Convenient 'scope sweep rate: 1 us/div. 


t±x^ 


•ra— 
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(19) Monitoring TRW pulse and current waveform simultaneously 
determine setting of BNC #2 so that TRW pulse occurs at 
the instant the Thyratron is triggered (call this 
"to"—probably will be 1 ys or less). 

(20) Strap cables together for neatness. Sheath any cable 
>2 feet long in grounded braid wire. Shield leads 
from Datapulse to TRW camera. 

B. Optics setup 

(1) Demount slits from JACO 1 m spectrometer. 

(2) Slide cross rails and plane transfer mirror 7/ 8 in. 
north of the position specified in Section II above (a 
rail stop is provided on the main auxiliary rail). 
Position the last folding mirror on the cross rails 
using the dial indicator and distance setting given 
on the rider. 

(3) Slide the TRW camera south until its support rider 
touches the rail stop on the eastmost rail just north 
of the cross rails. System is now aligned and 
focussed. 

(4) Uncover all mirrors and the grating. Set grating 
angles In 1 m and S m instruments as per II above. 

C. Run procedure 

(1) Load camera back—leave darkslide down. Under the 
dovetail slide, stack “checkers- to give a height of 
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7cffl . "Checkers" come in sizes 1 cm, 2 cm, 4 cm, 

and 8 cm. . ? 

. an( j delay time on BNC t z* 

r 2l Set spark gap, wavelengt , 

' ff<5et u, was previously determined. 

Recall the zero offset, t 0 , w 

Thus setting time for the BNG is 

desired time + t 0 • 

„ sure argon is o. and 15 r0tat ” 5 ' 

(3) Shroud the stand in black cloth. 

<„ uith only red lights on, turn .« T» h„h . 

„„„ turning on .hit. lUbts. double check 
shutter is closed an! high volta.e Otheraise 

damage may result. 

Source high voltage on. Oarksli 

(5) AH lights out. Source my 

up. TRW mechanical shutter open. 

burn duration. 

(6) Set the computer to give 

(7) Computer on--run the exposure. 

^ 1 a o«tack the "checkers" 

/ 4 avk<lide down. Restac*. U,IC 
CSV computer off, darks nae au 

(.Inding fil. « •***-> .or nekt exposure^ 

»,l«.hl, stack heights are 2-1 « 

shooting 7 -Shot first. Physical and chronologrcal 

order of shots is the same. T. prnrent accideht 

^ film the darkslide should be 

stray light exposure of film, t 

th « C heckers“ are restacked or the 
lowered whenever the checxers 



950 


(9) Reset delay or grating angle— recycle to 7. 

(10) Turn off source high voltage whenever an operation 
takes you within arm's length of the gap. Monitor 
voltage on the digital 'scope. Wait until voltage 
registered on the capacitors is < 200 V before 
approaching gap. 

(11) After last exposure, close TRW mechanical shutter. 

0. Shutdown procedure 

(1) Source and TRW high voltage off. Shutter closed. 

(2) Argon off; electrode rotator unplugged. 

(3) Grating and mirrors covered. 

(4) Remount 1 m slits. 

IV. Auxiliary Tables: Calibration of Modified Jarrell-Ash Source 

This is a compilation of data taken by J. P. Walters and 
A. Scheeline on a modified commercial spark source. The other 
major source used, a research source documented by D. M. Coleman, 
has been similarly characterized; tables appear in Coleman's 


thesis. 



TABLE F.2 


^forward bias 41 m 

R reverse bias 34 m 

C 0.0101 uF 

L as a function of Variac setting 
Setting Inductance (Henries) 


0 

16.70 

5 

17.14 

10 

18.24 

IS 

19.76 

20 

21.6 

25 

22.8 

30 

23.7 

35 

24.7 

40 

25.2 

45 

25.3 

50 

25.0 

S5 

24.2 

60 

23.0 

65 

21.4 

70 

19.7 

75 

18.2 

80 

17.2 

85 

16.76 


transformer turns ratio: 136.7 ± 0.3 


p 


TABLE F.3. Discharge Inductors. 
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Li Adjustment is made using metal rods with spring clamps at 
1 each end. In the table below, one end of the rod is connected 
to the tap labeled "2" on the Inductor, and the other end is 
connected to the tap number shown. Corresponds inductance is 
shown in the second column. _ 


Tap 

Inductance 

(pH) 

Tap 

Inductance 

(pH) 

50 

2.3* 0.2 

26 

159.0*0.2 

48 

8.0* 0.2 

24 

174.7*0.2 

46 

17.1*0.2 

22 

190.5*1.0 

44 

27.9*0.2 

20 

206.0*1.0 

42. 

40.0*0.2 

18 

222.0*1.0 

40 

53.6*0.2 

16 

238.0*1.0 

38 

67.7*0.2 

14 

254.0*1.0 

36 

82.2*0.2 

12 

270.0*1.0 

34 

97.1*0.2 

10 

Inaccessible 

32 

112.4*0.2 

8 

301.0*1.0 

30 

127.8*0.2 

Open 

367.0*1.0 





)• 


i 

j 
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TABLE F.4. 


l 2 One end of rod clamped to turn 5 (counting from the bottom of 
the inductor). Top of rod connected to the turn listed in the 
first column, with calibration as listed in the second column. 

inductance 


Inductance 

Tap 

(UH) 

Tap 

(uH) 

97 

4.0 

57 

72.4 

93 

7.8 

53 

80.4 

89 

13.0 

49 

88.5 

85 

19.2 

45 

96.6 

81 

25.9 

41 

104.7 

77 

33.1 

37 

112.9 

73 

40.8 

33 

121.0 

69 

48.6 

29 

Inaccessible 

65 

56.4 

25 

137.4 

61 

64.3 

21 

145.5 



Open 

189.7 


All are ±0.2 pH. 


1 



TABLE F.5 


L 3 Jumper is connected to tap as listed, i.e. tap 1 is 
closest to outside end of L 3 , tap 16 is closest to 
ground connection. 

Tap 

Inductance 

16 

0.35 

15 

1.5 

14 

3.3 

13 

5.8 

12 

9.0 

11 

12.5 

10 

15.7 ± 0.5 

9 

20.4 

8 

22.8 

7 

25.1 

6 

28.2 

5 

31.9 

4 

36.1 

3 

40.9 

2 

46.6 

1 

51.8 

Open 

54.6 


All ±0.2 pH except as noted. 
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TABLE F.6. Rotameter Calibration for Flow Meter Used for All 
Non-Schlieren Experiments. 


Reading 
(bottom of 
silverball) 

Flowrate 

(ml/s) 

0.5 

0.18 

1.0 

0.34 

1.65 

0.71 

2.75 * 0.05 

1.03 

3.58 ± 0.08 

1.55 

4.30 ± 0.1 

2.06 

5.5 

2.82 

6.4 

3.55 

7.5 

4.55 ± 0.1 

8.60 ± 0.05 

5.56 ±0.2 

10.0 

6.85 ± 0.25 

11.0 

7.81 ± 0.4 

12.0 

8.77 ± 0.45 

13.60 ± 0.1 

10.20 ± 0.5 


rai-ihrated at 21 9°c. Typical error limits are shown where known. 
For se«inos <4 3, precision was limited by flowrate 
fluctuations. Abo^this setting, s 

uncertainty in operating the stopwatch used to time flow. 
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V. Roll Film Holder 

Appended is a copy of the instructions for use of the roll 
film holder used for spectral work. In the section "Finding and 
Interpreting Roll Film Spectra" III.B, the orientation shown is 
specific to the 1 m spectroneter. For both time integrated high 
wavelength resolution and time resolved data, short wavelength 
is on the opposite side of the film from that shown. Also, the 
bottom of spark gap appears to the right in these situations, 
rather than to the left as shown in III.B. This is due to the 
light being focussed again by the spectrometer and camera. 


inverting images. 



USE OF ROLL FILM BACK 


Orientation 



Counter 

Advance 

release 


Supply Take-up 

roll^ clips 


Pressure 
place W 


(pTil 

LJ- Take-up 
J roll 


Pressure 

roller"^ 


(dark slide on front; .Cross-section of inside 

not shown) 1 

I 

To Load 

Push "advance release** and turn crank until counre¬ 
in dicatcs between 20 and S (close to S) and crank 
can free-wheel. 

. B. Insert roll of film in "supply roll" socket. Black side 
is down, film comes off the top of the roll. 

C. Ufc pressure plate and roller. Run tongue of film roll 
wider the pressure plate. 

D. There are four ridges under the area where che pressure 

plate lies: — — 


Film muse cover the two shorter ridges and lie beeveen 
i nnM r ridKes. Otherwise the film may tear *at 
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^*11 film over pressure roller and lower pressure plate. 
Pull out film until two arrow heads show through the 
holes in the pressure plate. 



F. 


G. 


Insert tongue of film in take-up reel and count reel 
in position. Turn crank until film is just snug. 
Film path is 


xaxe-up 


^Supply J f V 

V*— 

O " -. ._n v- 

Lower Take-up clips, close rear cover. 


Pressure 


H. Turn counter until a click is heard as "S" catch drops 
into place. 

I. Insert film holder in spectrograph. Be sure dark slide 
is down. 

J. Turn crank until cam locks frame 1 in position. 

K. Note that the alignment of the arrows in step S. and 
the cranking from "S" to "1" in steps H.-J. are 
engineered to correctly position frame 1. 

H through J should be executed in order. 

III. To advance frames, push the advance release once, then turn 
the crank until it engages the stop. 


IV. Unloading . 

A. After shooting frame 10, alternately push the advance 
release and turn the crank until the film is completely 
on the take-up spool. This is =*4-5 frames. 

B. Remove the film back from the spectrograph. Open the 
back, remove the spool of exposed film, fold under the 
tongue, and seal the reel closed with the seal provided. 
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V. Development 

A. In total darkness, load film onto development reel. 
Paper backing must be removed. This can most easily 
be done as follows: 



One end of the film (nearest start of frame 1) 
is attached to the paper with tape. When this point is 
reached, discard the paper and the tape and load the 
film onto the reel. 

B. For Tri-X, developing conditions which appear to give 
good contrast in spectra are: 

Develop: 10 min 1:1 D-76 18.5®C 

Stop: 30 s SB-5a 

Fix: 10 m Acid fix 

Wash: 30 m 
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FINDING AND INTERPRETING ROLL FILM SPECTRA 


Roll Identification 

A, Each roll is identified by a three-part level. Example: 



Film type 
TX - Tri-X pan 

VP - Verichroae 
pan 

Others to 
be added 
if used 


TX 


J 


J 


Spectrometer 

Identification 


B 



A « first roll of 
this type shot 


• Shot on Jarrell- 
Ash 1 m 
spectrometer 


B * second roll 


5 - Used 5 m 

spectrometer 

H - Used McPherson 
monochromator, 
etc. 


Z * 26th roll, etc. 


If more than one 
focal plane is used 
while running one 
roll of film, these 
may be combined. 

J5 means both JACO 
and 5M focal planes 
were used. 


Frame Identification 

A. A roll of type 120 film allows 10 frames of 2-1/4 * 2-3/4" 


to be shot per roll. Commercial film is numbered for 


12 frames. Thus commercial film frame numbers should 


be ignored. 

B. Processed film is stored in plastic notebook film preserve 
Each row of the preserver contains two frames, and each 
preserver can hold eight frames total. Arrangement: 



LABLE BLOCK 

(EMULSION SIDE DOWN) 


Page 2 similarly would hold frames 9 and 10. 
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III. Individual Spectra 

A. Five or six spectra appear in each frame. 

B. Shortest \ appears at the left of each spectrum (-toward 
the top of preserver) . A typical spectrum would appear 
thus on the film (viewed as in the "arrangement" sketch 
above) : 



C. The first spectra shot are those farthest to the left. 
That is, chronological order of spectra shot and physical 
order left to right are the same. 

D. Standard configuration: 



SPARK GAP 




E, Correlation of film position and camera back position. 
When recording data, film posititr. is recorded in terms 
of physical camera back position in cm. Below is a 
table relating physical camera position (recorded in lab 
records) to spectrum number within a frame (spectrum yl 


is leftmost in 

the film preservers). 

5 m camera 

Spectrum 

JACO camera 

back position 

number 

back position (cm) 

(stop) 

1 

3.5 

4 

2 

4.5 

5 

3 

5.5 

6 

4 

6.5 

7 

5 

7.5 

8 

6 

8.5 

9 

Complete Spectrum 

Identification 



In my lab records, discussion concerning a particular spectrum 
(see for example 3/29/78, p. 1) is given as: 



roll 

identification 


frame Spectrum (third one shot in 

this frame) 
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Appendix 6 
WAVELENGTH TABLES 

Tabulated are observed lines from time Integrated spectra of 
bipolar spark. Cu Initial cathode, A1 predominant cathode, and 
Ar spark gas were used at two breaks per half-cycle. 

Lines are listed by species and excitation state. Mn, Fe, 
and Ti lines (impurities in aluminum) were seen but are not 
listed here. Band systems of N 2 and A10 were observed. Several 
weak nitrogen and oxygen lines were seen, but are also not 
listed here. 

Wavelengths are those from Striganov's tables or ZaldaTs 
(see explanation in Chapter V). 

A question mark after a wavelength indicates either line 
identification is questionable, or existence of the line above 
background intensity is dubious. 

Wavelengths are in Angstroms. 
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A1 I 


2269.1 \ 

2269.2 / 
2312.49 
2313.53 
2314.98 
2317.48 
2319.06 

2321.56 

2367.6 multi pi et 

2369.3 

2370.73 

2372.07 

2373.3 multi piet 
2374.96 

2567.98 

2575.09 

2575.4 

2652.47 

2660.39 

2837.9 

2840.15 

3050.07 

3054.67 

3057.14 
3059.03 
3059.92 
3064.29 

3066.15 

3082.15 

3092.8 

3944.0 

3961.52 


■ A1 II 



AT TTT 

2427.7 

2459.8 
2466.28 
2475.26 
2556.78 
2557.71 
2559.61 

2631.55 

2638.5 

2669.17 

2816.18 

3587 multi pi et 

3738 

3900.68 ? 

4159.9 

4663.05 

6226.19 

6231.76 

6243.35 


nl ill 

3601.62 

3612.35 

3702.09 

3713.1 

4512.535 

4529.18 

5696.47 

5722.65 



Hr I 


Ar III 

3606.52 ? 

4181.88 

4333.56 

3285.85 

3632.68 ? 

4190.7 \ 

4335.34 

3301.88 

3743.765 

4191.0 / 

4596.1 

3311.25 

3770.36 

4198.3 

4702.31 

3336.13 

3781.36 

4200.67 

4832.4 ) 

3358.49 

4044.42 

4259.36 

4832.8 / 

3480.55 

4152.54 ? 

4266.29 

4867.84 

3499.67 

4158.59 

4272.17 

4949.64 

3500.58 


4300.1 

5241.1 

3514.18 


3344.72 



Aril 


2437.5 

3454.1 

3763.50 

4076.94 

4475.95 

2429.45 

3464.1 ? 3765.27 

4079.58 

4481.81 

2437.52 

3466.3 1 

f 377 0.52 

4082.39 

4545.045 

2444.83 

3476.25 

3786.38 

4103.91 

4579.15 

2452.74 

3491.24' 

1 3799.38 

4112.82 ? 

4589.90 

2460.64 

3491.54 

f 3803.17 

4128.64 

4598.76 

2507.33 

3509.78 

3808.58 

4131.73 

4609.56 

2522.50 

3514.39 

3809.456 

4228.16 

4637.23 

2525.48 

3520.00 

3845.41 

4237.22 

4657.89 

2535.25 

3521.26 

3850.55 

4218.67 

4682.28 

2732.33) 

3535.32 

3875.26 

4222.64 

4726.86 

2732.50/ 

3545.6 

3891.4 

4226.61 , 

4732.06 ? 

2891.6 

3545.84 

3891.98 

4227.0 / ! 

4735.90 

2896.56) 

3548.52 

3900.62 

4277.52 

4764.86 

2896.75/ 

3559.51 

3911.57 

4282.90 

4806.02 

2942.89 

3561.03 

3914.77 

4309.1 

4847.815 

2979.05 

3565.03 

3925.721 

4331.2 

4879.86 

3028.91 

3576.61 

3926.03/ ' 

4348.06' 

4889.03 

3033.51 

3581.61 

3928.63 

4352.20 

4933.2 

3161.37 

3582.36 

3931.235 

4362.065 

4942.915 

3181.04 

3588.45 

3932.55 

4367 ? 

4949.4 

3212.52 

3605.88 

? 3938.36 ? 

4370.75 

4965.07 

3243.69 

3620.81 

3974.48 

4371.33 

4972.16 

3249.8 

3639.83 

3979.36 

4374.9 

5017.16 

3293.64) 

3650.89 

i 3938.16 

4379.7 

5062.04 

3293.93/ 

3655.31 

, 3992.05 

4400.1 

5065.45 

3307.23 

3656.01 

3994.29 

4401.0. 

5067.08 

3350.93 

3628.27 

4013.86 

4420.91 

5090.5 ? 

3365.54 

3718.21 

4035.46 

4426.0 

5141.3 

3376.44 

3729.31 

4038.81 

4430.19 

5145.32 

3388.53 

3737.9 

4042.90 

4431.00 

5165.77 

3421.615 

3753.52 4072.0 

4460.56 

5175.43 

5236.89 








Cu I 


2227.77 

3116.35 

3319.68 

3624.24 

4480.35 


2230.08 

3126.11 

3329.64 

.3627.32 

4507.35 

“ 

2263.08 

3128.70 

3335.21 

3632.56 

4509.37 


2293.84 ? 

3140.31 

3337.845 3635.92 

4525.11 


2303.12 

3142.44 

3349.29 

3641.69 

4530.785 


2392.63 

3146.82 

3365.34 

3645.23 

4539.70 


2406.665 

3169.68 

3381.121 

1 3648.38 

4586.97 


2441.64 

3175.67 

3381.42J 

' 3655.89 

4642.58 


2458.88 

3194.1 


3665.73 

4651.12 


2492.15 

3208.23 

3402.24 

3671.95 

4674.72 

, 

2593.65 

3223.435 

3404.66 

3676.88 

4697.49 


2605.26 

3224.664 

3413.10 

3684.671 

4704.59 


2618.37 

3226.54\ 

3415.8 

3684.93/ 

4783.4 


2734.86 ? 

3226.60/ 

3450.33 

3700.54 

4794.0 


2766.37 

3231.18 

3454.7 

3734.18 

5034.36 


2824.37 

3235.71 

3465.4 

3741.24 

5076.17 


2882.93 

3243.16 

3466.241 

1 3771.90 

5105.54 


2961.165 

3247.54 

3472.14] 

r 3803.49 

5111.91 


2997.36 

3252.22 

3476.00 

3805.23 

5144.12 ? 


301Q.84 

3266.02 

3483.76 

3860.47 

5153.235 


3012.00 

3268.28 

3512.12 

4022.63 

5200.87 


3021.54 

3273.96 

3520.03 

4062.64 

5212.78 


3022.61 

3277.31 

3524.23 

4073.22 

5218.2 


3024.99 

3279.81 

3527.48 

4075.57 

5220.07 


3036.1 

3282.72 

3530.38 

4104.22 

5237.65 


3063.41 

3290.54 

3533.75 

4123.29 

5250.52 


3073.80 

3292.391 

3599.13 

4177.76 

5292.52 


3088.13 

3292.83/ 

3602.03 

4248.96 

5360.03 


3093.99 

3302.79 

3610.81 

4259.36 

5391.6 


3099.93 

3307.95 

3613.76 

4275.11 

5432.0 


3108.5 

3317.22 

3614.22 

4378.20 

5700.2 




3621.25 

4415.54 

5782.13 



: r 
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2135.98 

2286.64 

2443.69 

2148.98 

2291.00 

2447.43 

2179.40 

2292.68 

2468.50 

2189.63 

2294.37 

2473.33 

2192.27 

2299.47 

2485.79 

2195.67 

2309.51 

2489.66 

2200.50 

2323.01 

2506.27 

2210.27 

2336.17 

2518.95 

2215.10 

2348.74 

2526.59 

2218.11 

2355.01 

2529.31 

2226.77 

2356.65 

2544.80 

2228.87 

2369.89 

2571.76 

2230.09 

2370.75 

2590.53 

2230.81 

2376.29 

2598.81 

2242.62 

2384.94 

2600.27 

2247.00 

2400.11 

2620.67 

2248.96 

2403.34 

2666.29 

2254.98 

2414.18 

2689.30 

2263.78 

2424.43 

2700.96 

2276.26 

2428.92 

2703.18 

2278.33 

2442.67 

2713.51 


2718.78 4681.99 ? 

2721.68 4758.42 

2737.34 4812.94 

2739.77 4832.24 

2745.27 4901.41 

2769.67 4909.73 

2837.37 4918.37 

2857.75 4926.39 

2877.70 4931.65 

2884.19 4937.2 

3158.64 4953.73 

3686.55 4980.0 ? 

3826.91 4985.5 

3842.58 5006.79 

4043.5 \ 5009.83 

4043.75/ 5012.6 ? 

4131.36 5021.3 

4179.3 5051.78 

4227.94 5093.79 

4505.997 5100.1 

4555.92 5124.46 
5368.42 


j 


Cu III 

2391.73 

2405.49 

2412.32 

2482.34 

2609.31 

2641.54 

2643.92 


B 

2496.78 

2497.73 


Ca 

c 

m .1— 

Mq II 

3933.66 

2478.56 

2776.69 

2790.78 

3968.47 

4226.73 


2778.27 

2779.83 

2795.53 

2798.00 


2781.42 

2802.70 



2782.97 

2928.63 



2852.13 

2936.51 


2915.45 ? 
3829.355 

3832.3 

3838.3 
4165.1 
4167.27 
5167.32 












